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PREFACE 


This work was sponsored by the Office of Technology Utilization of the 
National Aeronautics and Space Administration through Contract No. NAS 7-100. 

This document is one of two principal systems specifications docu- 
ments to be generated by the LUMIS program. While this document addresses 
the problem of data base interrogation, the other^ presents software and 
procedures involved in data base construction using the census DIME file and 
point-in-polygon architectures. 
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ABSTRACT 


The LiUMIS program has designed an integrated geographic information 
system to assist program managers and planning groups in metropolitan 
regions. Described is the system designed to interactively interrogate a data 
base, display graphically a portion of the region enclosed in the data base, and 
perform cross -tabulations of variables within each city block, block group, or 
census tract. The System is designed to interface with U, S. Census DIME 
file technology, but can accept alternative districting conventions. 

The System is described on three levels; (1) introduction to the 
System's concept and potential applications, (2) the method of operating the 
System on an interactive terminal, and (3) a detailed system specification for 
computer facility personnel. 



PART I 


INTRODUCTION 


1.0 BACKGROUND 

The Land Use Management Information System (LUMIS) was developed 
by the Jet Propulsion Laboratory (JPL) in cooperation with the Los Angeles City 
Planning Department for the City portion of the Santa Monica Mountains and with 
the City of Tacoma Planning Department. LUMIS incorporates data developed 
from maps and aerial photos as well as traditional land based data associated 
with routine city and county record keeping activities and traditional census data. 

To achieve the merging of natural resource data with governmental 
data, LUMIS was designed in accordance with restrictions associated with other 
land use information systems currently being constructed by Los Angeles and 
Tacoma city staffs. The city systems are based on geographical and environ- 
mental data and utilize U.S. Census Bureau DIME file technology. They 
incorporate numerous local, region'al, and Federal data files at the first level 
of urban geographic aggregation -- the individual census block. 

In its interactive mode, LUMIS uses a graphics terminal to display 
urban street networks. Users can query their data bases and display numerical 
data values for each of the city blocks shown on the TV-like screen. The inter- 
active system is most efficient at producing special purpose maps for areas 
consisting of up to one tract at the block level, and correspondingly larger areas 
at the block group and tract levels. The data base generally consists of block 
level census data and data digitized from maps and photographs. Census Bureau 
DIME files provide the basic street network information and a means of aggre- 
gating local government data to the block level. 

In using LUMIS, urban planners are confronted with a series of "plain 

I'^structions and commands that guide them through the System. In 
this sense the interactive graphics portion of LUMIS is self-teaching for users, 
LUMIS provides commands for study area selection, geographical detail speci- 
fication, street network mapping, data selection, and data mapping. 
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LUMIS was developed in such a manner as to make it transferable to 
the over 200 major cities in the United States having DIME files. As DIME 
technology becomes more widely accepted internationally, it is likely that 
LUMIS will also find its share of overseas users. 

An objective of the LUMIS task was to demonstrate the potential of 
interactive computer graphics to urban users to illustrate the value of an 
advanced LUMIS operating system. For the first time, it is possible for an 
analyst to create special purpose maps from selected parts of a metropolis, 
and incorporate the product in a variety of planning activities. 

The interactive graphics system basically takes as input, digitized 
block boundaries and map polygons. The graphics routines display the digi- 
tized block polygons in map form and the socioeconomic data in numeric form 
at the polygon or block centroids. The block boundary map file may be gen- 
erated by manual digitization or, in most cases, by applying a series of 
programs, to generate a file from the U..S, Census DIME file for that city. 

The block boundary map file (picture file) interfaces directly with the Third 
Count Block Census file tapes, and the user has the option available to merge 
other data sets aggregated at the block level and encoded in the census block, 
block group, and tract designations. 

To date, the interactive graphics system as maintained for the City 
of Los Angeles encompasses one hundred and seventy-three socioeconomic 
data' items regarding population, housing, ’and land use for six census tracts 
having appr oxirnately two hundred census blocks -in Woodland Hills, California. 
The socioeconomic data items were obtained by merging the Third Count 
U.S, Census tapes and the Los Angeles County Assessor' Secured File for these 
six tracts. The City of Tacoma graphics system consists of 55 variables from 
the 19.70 Block -Census and will include an additional 70 to 100 variables from 
the Tacoma Land Use and Building Structure files. 

The LUMIS Inter a"ctive Graphics Terminal is- a Tektronix 4013/4015 
utilizing the APL.pjrqgr amming language for graphics -representation of geo- ' 
graphic and tabular data. APL functions have also been, written which permit 
the planner to converse with the computer in English language statements. 
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CONCEPTS 


2 . 0 

' The Land Use Management Information System was designed to have 
two modes of output. The first of these is the traditional computer printer- 
paper formatted output. On these traditional reports the land referenced 
activity data would be a series of columns across the page. Each column 
would be headed with such titles as residential land use and the absolute acreage 
of that land use; its proportion would be stated as a percentage of the total land 
area in the reference polygon. Each row in the LUMIS report would be unique 
for one of the reference polygons that 'comprised the geographical subdivisions 
of the entire study area for which the the LUMIS had been instituted-. All 
columns for each row in a LUMIS report would total the complete area for the 
reference polygon, or 100%. 

The second LUMIS mode involves interactive graphics. In addition to 
the data retrieval powers of the LUMIS traditional reporting system, the inter- 
active graphics mode provides the user with a rudimentary but planimetrically 
correct streetwork map of the area for which georeferenced data was requested. 
LUMIS interactive graphics were developed to provide spatially oriented data 
users with the ability to "see where the data they had requested was located". 
While the geographic display of data is often times deemed trivial by the non- 
spatially oriented researcher,, he soon learns to respect the power of doing it 
automatically after completing his first map coloring exercise. 

In designing the LUMIS interactive graphics and traditional reporting 
system serious considerations had to be given to the size and type of geographic 
unit the data was to be reported for. It was obvious to the LUMIS design staff 
that until now remote sensing had played a less than optimum role in planning 
urban centers and that its potential to monitor urban dynamics had not been 
fully 'exploited. 

In' pur suing the LUMIS design it was learned that the processing of 
imagery, either by interpretation of aerial photos or machine processing of 
digital imagery, was expensive by any municipal government's budgetary con- 
siderations. It was also learned that remote sensing alone could not gather all 
the information that urban researchers associated with land use data in any 
way let alone a cost effective one. Socioeconomic and demographic character- 
istics such as rent rates or age of families could not be supplied by interpreted 
imagery at any scale. 
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Thus the LiUMIS designers had to consider the types of data that urban 
planners and researchers needed and used. What was learned is that some 
types of data were best gathered through the use of traditional field methods 
such as the decennial census or the processing of routine administrative 
records from building, assessor and welfare offices. 

LUMIS then was developed giving considerations to the cost/benefit 
comparisons between remote sensing and traditional ground survey of land use 
and socioeconomic measures. These were weighed against a third dimension 
of resolution and scale and the question asked, ”At what level of geographic 
detail can the cost ratio of obtaining data from remote sensing be held to a 
minimum when compared to ground survey data collection. " 

Another way of looking at the cost question was to first understand 
that for more detail an aircraft must fly at a lower altitude. When flown at 
a lower altitude the aircraft must make more passes to cover a given study 
area. When the aircraft is flown lower and longer the associated costs go up. 
The LiUMIS designers had to consider what they believed was the optimum 
scale of photography or the altitude the aircraft was to be flown at to produce 
photos for the LUMIS. 

To make this decision they investigated the needs and uses of data by 
urban planners and researchers both as to type of data and the level of geo- 
graphic detail at which it was used. They found that remote sensing would not 
answer all data needs and that beyond a certain level of detail it was not cost 
effective to use aerial imagery and that in fact extreme low altitude or large 
scale imagery produced data that was redundant or superfluous to that collected 
through routine administrative procedures. 

The LUMIS design task posed the additional problem of having to over- 
come the format in which the raw or processed image data was traditionally 
presented. Urban planners and decision makers think of their areas as a 
hierarchy of politically well defined geographic -units most often in the shape 
irregular polygons. These users could not incorporate data reported by large 
abstract grid cells or mapped irregular geophysical polygons easily into their 
information using processes. 
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This meant that LUMIS had to report its data by some geographic unit 
commonly recognized by the urban user and that this geographic unit must also 
represent that point in the geographic hierarchy at which image based data 
could most cost effectively be merged with field survey or administrative 
record base data. To determine at which point in the political geographic 
hierarchy L/UMIS should intersect for data capture one such hierarchy was 
studied in detail. 


3. 0 LOS ANGELES'S GEOGRAPHICAL HIERARCHY 


3. 1 Parcel Level Information System (LUPAMS) 

The City of Los Angeles had developed a parcel level information 
system. It was named the Land Use Planning and Management System 
(UUPAMS). The basic record for that system was the individual land owner- 
ship parcel. There were approximately 700,000 such parcels in the City. 

The basic data in that system was collected by the Los Angeles County 
Assessor as part of his property assessment activities. 

To the basic Assessor data. City Planning staff added parcel area by 
physically planimetering each parcel's mapped outline, and census block and 
census tract geocodes. That geocoding activity was also a manual one in 
which map correspondence was determined between Assessor maps and Census 
maps. The required census codes were then transferred to the Assessor maps 
and, in a second step, coded for addition to the basic Assessor file. When the 
addition of parcel area and census geocodes to the Accessor file was completed 
the resulting file was referred to as the LUPAMS file. That file is processed 
by City users in two ways. Copies of the file's data for each parcel are placed 
on microfiche and made available to requesting Departments. The LUPAMS 
data was also maintained in machine readable form (13 computer tapes) and 
accessed via ASI-ST a file management proprietary software package. 

Even at this basic level in the exemplary hierarchy there existed some 
confusion as to identifying the basic geographical reference unit. The two 
smallest geographic units found were the lot and parcel. These existed in 
parallel but referred to slightly different units of land. Parcel denoted a 
primary ownership unit while a lot was the basic survey unit in a tract within 
a subdivision. It was possible for one ownership parcel to consist of one or 
more subdivision lots or fractions thereof. 

Parcel identification was how the County Assessor geocoded or 
geographically identified the physical location of owned properties. This 
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system was tied to a set of map books cartographically describing the entire 
County. Each ownership unit was assigned a map book, page and parcel 
number. There are approximately 800,000 parcels-in the City of Los Angeles. 

> Overlaying both the lot, block and tract system of the City Engineer 

as well as the book, page and parcel system of the County Assessor was the 
City's network of streets and highways. Upon investigation it was estimated 
that over 95% of the lots or parcels within the City conformed to the City's 
street system. That is, that with rare exception, lots or parcels did not 
cross streets and were complete land units within a larger unit (the city block) 
described by the street system itself. 

3. 2 Block Level Information System (Cieo-BEDS/LUMIS) 

Geo-BEDS and LUMIS are both block level geographical information 
reporting systems; That is to say that all geographically referenced data 
contained in these systems .are reported as units or percent of units for each 
individual city block. Geo-BEDS stands for Geographically Based Environ- 
mental Data System, and LUhllS stands for Land Use htanagement Information 
System. The city blocks used in both systems are those that were identified 
and'assigned individual numbers (geocodes) by the U.S, Bureau of the Census, 
for the 1970 census. 

As mentioned earlier, each parcel record in the LUPAMS was 
assigned the census block number in which it was located. Thus both Geo- 
BEDS and LUMIS had as their basic data input aggregated County Assessor 
information. In addition Geo-BEDS and LUMIS contained third count census 
block level population and housing data. 

The concepts behind Geo-BEDS and LUMIS represent the merging 
and blending of politically referenced and coordinate referenced data types 
into a uniform system. Geo-BEDS was originally conceived to be a nominal 
or politically referenced geographic data information system. It was to only 
contain data, aggregated through address matching procedures to the individual 
city block. Geographic access to the System is through a census map reference’ 
atlas that has paginal conformation to the City's official cadastral mapping 
system. Geo-BEDS data processing was sequential file oriented and was to be, 
done through standardized ASI-ST procedures. In this system there are 
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23, 000 records one for each, city block. Coordinates were planned to be added 
to this file for purposes of computer mapping and point and polygon routines, 
but not for data collection procedures. 

LUMIS was devised as an ordinal coordinate referenced system that 
would allow natural resource or physical geographical data coming from maps 
and aerial photographs to be aggregated or reported by coordinately defined 

' t 

geographic units. LUMIS was instituted on a test basis for the City and it was 
decided to report data from aerial photographs as units or aggregates for indi- 
vidual city blocks. 

The LUMIS incorporates traditional low altitude photo interpretation, 
map model construction, and coordinate digitizing procedures. In the test 
instance the major polygon to which data was aggregated was the individual 
city block as specified in Geo-BEDS, and the minor or overlayed polygons were 
the photo interpreted map models. Both major and minor polygons were com- 
puter overlayed and statistics indicating incidence of intersection between 
major and minor polygons were reported. Because the major polygons .were 
defined by the existing street network their digitizing made possible the 
development of interactive graphic LUMIS software that would portray indi- 
vidual city blocks on a cathode ray tube terminal. The LUMIS and Geo-BEDS 
data bases allowed users of the interactive.graphics LUMIS to make "instant" 
work maps suitable for inclusion in certain types of reports or to be used as 
rough draft instruments for professional cartographers. LUMIS interactive 
graphics opened the door for planners to use both nominal and ordinal data in 
a real time simulation mode. 

3. 3 Census Tract Level Information System (SUM) 

The Scientific Urban Matrix (SUM) was developed by the Los Angeles 
Community Analysis Bureau (CAB) and utilizes the census tr-act as its geo- 
graphic reporting unit; the final element in our geographical hierarchy. The 
basic charge of the CAB was to define, identify and locate urban blight in 
Los Angeles. To that end they produced the first operating automated geo- 
graphical reporting system. That system was assigned the acronym of SUM 


.1-7 



and its data base consisted of records for the 741 census tracts in the City. 
For each tract over 300 data items were collected through a variety of pro- 
cedures and those items were made available to all City agencies. 

SUM pointed out dramatically how costs of data collection, storage 
and manipulation went down as the need for exacting geographic specificity 
lessened. This system also illustrated the minimum level of detail at which 
geographic data can prove useful for urban planning purposes. Although 
parcel, block, and even tract data may be aggregated further upward, the 
raw ' data from which those aggregations are made can ^ ^ more gross than 
the individual census tract . 

4. 0 PLANNING ACTIVITIES UTILIZING LAND USE DATA 

^ Any number of taxonomies can be constructed that describe the vari- 
ous operations of an urban planning agency. These can be narrowed somewhat 
by limiting them to ones that directly involve large area land use data. For 
sake of brevity we have further restricted our classification of planning activ- 
ities to those primary urban studies that act as baseline data that can be 
incorporated in LUMIS and be used in background reports for actual plans. 

In our taxonomy there are four major groups of operations; 1) population 
studies, Z) housing’ studies, 3) economic studies, and 4) studies of social 
conditions. We will briefly review these to provide a frame of reference for 
LUMIS users to incorporate interactive graphics in their planning activities. 

4. 1 Population Studies 

Planning agencies are concerned with two major types of population 
studies. These are population estimates and population projections or fore- 
casts. Estimates are a best "guess" of the actual number of people now 
residing within a given area, while projections are a forecast or statement of 
the future number of people expected to be living in that- same area. In one 
sense population estimates a-re considered as a type of census update. They ' 
usually contain data about the numbers and types of dwelling units in an area 
as well as the population. There are a wide variety of population and housing 
estimation methodologies. The ones used are usually selected because of data 
availability constraints facing the agency making the estimate. In practice 
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these estimates are made to serve as baseline data for other planning groups 
wishing to monitor either the relationship of population to land use as expressed 
in terms of housing, traffic, waste water-sewers, or population to social pro- 
grams such as those associated with schools, police, fire. In both cases 
geographic location of the estimated population is critical. For Los Angeles 
the estimated population and housing numbers are reported "each year for each 
of its 741 census tracts. With the implementation of LUMIS the reporting of 
those estimates for the 23,000 census blocks now becomes possible. 

Population projections are generally made using some variety or 
modification of a cohort survival model. In making these projections the final 
numbers are extremely sensitive to birth and death rates. Yet these rates are 
not the most controversial aspect of population projections. Experts making 
local population projections most usually disagree on the expected numbers of 
population migrating into and out of an area. 

Trend analysis of land use changes could be an important tool in pro- 
jecting population migration. Again as with the population estimation numbers 
Los Angeles reports its population projection numbers at the census tract level 
of geographic specificity. 

In both the population estimation and projection processes, urban land 
use data annually reported by acres within census polygons would be immeas- 
urably beneficial. Population estimators could universally report housing unit 
estimates by type and location. This could be done by monitoring changes in 
land use acreages annually and field checking density acreage relationships for 
new areas. It is anticipated in the future that population projectors could 
utilize satellite time series information for each census polygon to determine 
how land use in that polygon has changed. That data coupled with housing unit 
vacancy estimations could provide clear insight to urban population migration 
patterns . 

4.2 Housing Studies- 

We have seen that the counting, estimating and projecting of population 
is tied directly with similar activities regarding housing. While demographic 
researchers are seeking to develop techniques for estimating and projecting 
age, race, and sex distributions and locating them geographically, housing 


1-9 



researchers are seeking to identify housing quality and urban blight and locate 
those phenomenon geographically. 

Annual reporting of urban land use categories by acres, and by census 
areas will aid housing researchers in routinely specifying "where" in the city 
various types of residential structures can be found, such types as single family 
dwellings, two story apartments, and multistory apartments. Interpreted 
aerial photo data also seems to hold out the promise to be able to geographi- 
cally classify the location of these areas as "sound" or "unsound", "good" or. 
"bad quality", and "blighted" or "nonblighted". More importantly aerial photog- 
raphy would provide a reliable early warning device through time series 

monitoring to identify geographical areas going through critical neighborhood 
change. 

. Specifically housing planners need to know. a variety of things about" 
the existing housing stock. They need to know where it is located by .-type and 
quality, how many people live in each quality and structure type, how fast each 
quality and structure type is being removed from the housing inventory and how 
fast it is being replaced. 

In Los Angeles these questions are not being answered directly, but 
rather through a series of approximations. Skillful incorporation of photo 
based data into analytical systems such as LUM^IS could provide a great deal 
more reliable information than is currently available regarding housing num- 
bers and quality and in a manner that would allow Federal agencies to have a 
more complete and uniform housing "picture" of any given urban area. 

4. 3 Socioeconomic Studies 

Urban planners are concerned with three states of geographical .being. 
These are similar to those cpmmonly -dealt with, each day by all of us arid known 
as the past, present, and future states of time. The planner's states of being - 
are existing land use (what is currently on the land), existing zoning (what can 
currently be placed on the land — under law), and planned land use .(what 
advisory agencies believe to be the best and highest use of the land). We have 
seen that estimated and projected numbers of population and housing are criti- 
cal tools for urban planning and that they rely on current or historical land use 
data or surrogates. 
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• But urban plans deal with more than geographically locating numbers 
of people in a variety of housing types. Those plans consider where people 
work and shop, the things they buy and make and the routes they travel. Plans 
go farther than just providing a framework for efficient urban development. 
They also consider the more humane aspects of living, its joys and fears. 

Plans locate parks, hospitals, firehouses, and jails. They consider income 
as well as basic human rights in designing a variety of lifestyles. 

All of these considerations are ultimately expressed by planners in 
maps or map-like diagrams for each of the three states of geographical being. 
Just as historical research forms the basis of much of man's .aspirations and 
goals for the future, maps of existing land use are the single critical tool upon 
which planners lean most heavily in drawing their future plans. . It is easy to 
see the circular nature of how existing land use largely determines future plans 
and how those plans influence future land use. The careful and systematic 
monitoring of changing land use is all important if the plans are to reach ' 
fruition. 

Considerable effort and expense is encountered by municipalities in 
making, implementing and monitoring city-wide land use plans. Reams of 
statistical data are gathered and impressive computer systems constructed. 

But these important tools would be considerably more effective if they could 
be quickly reduced to maps of existing land use, existing zoning and planned 
land use. Instant hard-copy maps of LUMIS data are just such a tool. 

Earlier we discussed nominal and ordinal systems. Digital image 
data interpretation is clearly an ordinal system. Zoning classification of 

i 

ownership parcels is clearly a nominal one. The power of each of these twc 
system types is brought into play when data maps of existing land use and 
existing land zoning with census boundary overlays are placed side by side 
annually and compared to an existing land use plan. 
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PART II 


THE OPERATING INSTRUCTIONS 


All users of the LUMIS interactive graphics system will have to 
prepare their own basic set of instructions that will direct users in "how to 
turn the machine on, " and "how to get the LUMIS up. " It is suggested that 
these basic instructions be placed permanently at the terminal itself. A 
sanaple instruction sheet as those used by the City of Los Angeles is shown 
in Fig. 2-1. 

Once the user has worked through the system initialization instructions, 
he may type the word "HELP , " Fig. 2-2 illustrates the terminal response to 
the "HELP" command by listing the various modules available to the user. 

Each module may be accessed by its command statement. Fig. 2-3 illustrates 
the kinds of response expected from technical queries under various modules 
available to the user. 

To aid beginning LUMIS users a series of illustrative problems have 
been worked using the major system commands (see Figs. 2-4 through 2-11). 

A single replication of each of these problems is usually sufficient to acquaint 
the user with each of the modules. 

On occasion the user may become overenthusiastic in his attempt to 
derive maximum information from a particular application, with the result that 
he may overload the work space in the computer. Each computer system has 
its own limit, and its own error message notifies that the workspace is full. It 
is advised that the user experiment with the system to see the limits of the 
application, and adjust his operations accordingly (e.g. ^ making several maps 
and piecing them together later). 

Persons operating the system will also learn that much more econom- 
ical processing can be achieved if they outline the steps to be taken prior to 
sitting at the terminal, and bring along a metropolitan map and table of variable 
descriptions , 
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How to Initiate LUMIS Interactive Graphics System 


1. Bottom Rear Panel Switch Settings 

a. Baud Rate 

1) Transmit = 300 

2) Receive = 300 

b. Duplex 

1) Full duplex local copy 

c. Garriage Return 

1 ) LF Oine feed) 

2. Set Keyboard Switches to 

LINE and APL 

3. Turn Power Switch On (below keyboard on front panel) 

4. Make sure-signal cable is connected to general design data transceiver from 
terminal . 

5. Push talk button on grey "Data-phone" and dial the computer installation connect 
number 6<~ xxx-xxx - xxxx ) . 


6. Upon hearing the high-pitched "data-tone" in the "Data-phone" push the "originate" 
button on the General Design Data Transceiver and place the “Data-phone" receiver 
in the .appropriate transceiver couplings. 

7. Press carriage return. 

[Follow the sign-on procedure outlined by the computer service company being used.] 


Fig. 2-1. Sample instructions 
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HELP 

mi.itiLS 




COST 

DISPLAY 
CENTROID 
EDIT ■ 
RESET 


DISPLAY YOUR CHARGES FOR USE OF THE COMPUTER 
SINCE YOU SIGNED ON TO THE APL SYSTEM. 

SELECT .AREAS AND DATA, AND DISPLAY THEM. 

CORRECT THE CENTROID IN THE INDEX FILES. 

CORRECT THE COORDINATES IN THE PICTURE FILES. 

CLEAR ANALYSIS REGION. 

CLEAR UNKNONN ERROR CONDITION AND RESTART. 


'HELP' IN THE UORK SPACE 'PROCESS' 


HELP . 

DlEE^mS . IQ.DQ.ItiLS 
BLDIDX CREATE INDEX FILES 31 , 32 , 33 * 

BLDPIC CREATE PICTURE FILES 21 , 22 , 23 , 24 * 

BLDTAB CREA TE TABULAR FILES 11 , 12 , 13 * 

'HELP^' IN THE UORK SPACE 'FILE' 


Fig. 2-2. HELP 
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Question 
Tract Nurpber(s)? 

Group Number(s)? 

Block Level ? 

Data? 

Title? 

OK? 

What? 

CR : carriage return 


Answer 

Response 

1 234 CR 

Tract 1234 is selected. 

CR 

Previous tract Is selected again. 

Q CR 

Display Is terminated. 

100 CR 

Group 100 Is selected. 

CR 

Previous tract Is selected again. 

Q CR 

Display is terminated. 

Y CR 

Block level data is displayed. 

NCR 

Block level data is no! included. 

D1 CR 

Data number 1 is selected. 

D1 + D245 QK 

Sum of data number 1 and 245 is 


displayed. The valid operatoi's 
are: +, x and 4 . 

CR 

Previous data is displayed. 

1 CR^ 

Census Bureau Identification 


numbers are displayed. 

Q ^ 

Display is terminated. 

' 

Any number of characters to be 
displayed as the title of display. 

Y CR 

Cause to pass the area displayed. 

NjQR 

Cause to start edit. 

A CR 

Add segment. 

D CR 

Delete segment. 

Q CR 

End of edit. 

R CR 

Replace segment. 


Fig, 2-3. Questions and answers 
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DISPLAY 

Graphic terhinau 

MhP7 

Y 


NEU AREA 7 
Y 

LEUEL7 

T 


tract HUMBERTS)! 
607,612,613 
DATAl 
I 


..Z.V iuu.T reel /II 

CO/?Af£ff JSi 

1506441 FEET EAST BY 
702413 FEET NORTH. 

PRESS RETURN KEY TO CONTINUE 




TRACT t 607 612 613 , 
CENSUS BUREAU ID 



Fig. 2-4. Multiple tract display at tract level 
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HEU AREfil 

Lb'EU 

0 

TRACT AND GROUP NUMBERS 1 
15 S12, ALL 
2t 613, ALL 
3t 

DATA! 

1 

NEU SCALE IS 117.4 FEET/ INCH 
NEU LONER LEFT CORNER ISi 
1507664 FEET EAST BY 
702413 FEET NORTH, 

PRESS RETURN KEY TO CONTINUE 


TRACT GROUPS 

612 100 200 300 400 500 600 

613 100 200 300 400 500 



Fig, 2-5. Multiple tract display at block group level’ 
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NEU fiREA7 
>• 

level ? 

G 

tract and group numbers 1 

l: 61Z, ALL 
2 : 

DATAl 

Dl*D2 

MAXIMUM IS 191 . 

MINIMUM IS 81 
TITLE 7 

OMNED HOUSE AND RENTED HOUSE 


NEN scale IS 117.4 FEET /'INCH 

corner is: - 

1512120 FEET EAST BY 
702413 FEET NORTH. 

PRESS RETURN KEY TO CONTINUE 


TRACT GROUPS 

613 IflO 200 300 400 500 



1808 FEET 




Fig. 2-6, 


Single tract display at block group level 
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>' 

LEVEL ? 

B 

tract and group numbers 1 

l: GIZjALL 
2: 

DATA! 

Dl-*D2 

maximum is 

MINIMUM IS 0 
TITLE7 

ONNED HOUSE AND RENTED HOUSE 


fitH SLALE IS 117.4 FEET/ INCH 

WfW LOWf/P left corner is X 

1512120 FEET EAST BY 
702413 FEET NORTH, 

PRESS RETURN KEY TO CONTINUE 


TRACT GROUPS 

613 IflO 200 300 400 500 



Wo8 FEET 




Fig. 2-7, Single tract display at block level 
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iiginal page is 

5' POOE QUALTTYI 


Y 

LEVEL ? 

B 

TRACT AND GROUP NUMBERS! 

U 613/200,400 
2: 

DATA! 

D1*D2 

MAXIMUM IS 19 
MINIMUM IS 1 
TITLE! 

ONNED HOUSE AND RENTED HOUSE 


7S 82.3 FEETJINCH 
NEN LONEP LEFT CORNER IS: 
1512120 FEET EAST BY 
702413 FEETNORTH, ' 

PRESS RETURN KEY TO CONTINUE 


TRACT GROUPS 
613 200 400 



Fig. 2-8. Selected block groups of single tract displayed at block 

level with crosstabulated variables 
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NEU ftRE/^2 

LEUEU 

G 

TRACT AND GROUP NUNBERSl 
U 612^100,200 
2: 613,400,500 
3; 

DATA7 

Dl*D2 

NAXIMUn IS 191' 
tllNItIUn IS 82 
TITLEl 

ONNED HOUSE AND RENTED HOUSE 

NEN SCALE IS 95.5 FEET/JNCH 
NEN LONER LEFT CORNER ISi 
1510607 FEET EAST BY 
702413 FEET NORTH. 

PRESS RETURN KEY TO CONTINUE 

tract groups 
612 100 200 
613 400 500 



Fig. 2-9. Selected block groups from multiple tracts, 

displaying group level data 
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N£U hr Eft 'i 

LB.'ELl 

B 

TRftCT ftND GROUP NUMBERS: 
l; 612,100,200 
2: 617,400,500 

-7 ♦ 

DftTftt 

Di*Di 

fifty I MUM IS 19 
MINIMUM IS 0 

title: 

OMNED HOUSE ftND RENTED HOUSE 

MEN SCftLE IS 95.5 FEET/ INCH 
NEN LONER LEFT CORNER IS: 
1510607 FEET EftST BY 
702413 FEET NORTH. 

PRESS RETUPN KEY TO CONTINUE 

TRftCT GROUPS 
612 100 200 
613 400 500 



Fig, 2-10, Selected block group's :from multiple tracts, 

displaying block level data 
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DISPLfiY 

GPPPHIC TERtlINPU 

V 

tlt^Pl 

N 


NEN PREP 7 


Y 

LEUEL7 

%ACT AND GROUP NUMBERS'! 
l: 612, ALL 
a: 61Z. ALL 


3: 


DAT At 
D1*D2 

NAXinUM IS 191 
tllNItIUN IS 77 


TlTLEt 

OUNED HOUSE AND RENTED HOUSE 
PRESS RETURN KEY TO CONTINUE 


TRACT GROUP OUNED HOUSE AND RENTED HOUSE 


612*0 

100 

94 

612*0 

200 

130 

612*0 

300 

91 

612*0 

400 

77 

612*0 

500 

105 

612*0 

600 

88 

613.0 

100 

83 

613*0 

200 

91 

613*0 

300 

81 

613*0 

400 

191 

613.0 

500. 

82 


NEU ARE At 


Fig, 2-11. Tabular output of cross -tabulated data 
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COMMANDS TO DISPLAY DATA 


1 . 0 


USER COMMAND 


SYSTEM RESPONSE 


COPY PROCESS 


COST 

DISPLAY 


HELP 


Copies the APL functions in the work space 
process into an active APL workspace. 

This workspace contains the functions called 
by the LUMIS user to obtain naaps and tables 
of data items or algebraic combinations of 
data items corresponding to selected tracts, 
block groups or blocks in the LUMIS data- 
base. A map or table may contain a mix- 
ture of tracts, block’ groups and blocks. 
These are simply referred to as areas under 
analysis . Block groups are always called 
groups . The PROCESS workspace also 
contains functions called internally by the 
functions called by the user. 

The cost of using the computer since the 
user signed-on is displayed. 

This is the major command that the user 
will have to use for a display purpose. The 
user answers questions posted by the 
functions to select areas and data for analy- 
'sis. The display is terminated when the 
user answers with a Q when any one of the 
questions is posted. See Fig. 2-4 for the 
questions and answers. 

See Fig. 2-2. 


RESET 


"Clears areas under analysis" by initiating 
certain vectors and variables in the work- 
space describing these data. 


2. 0 COMMANDS TO CREATE DATA 

USER COMMAND SYSTEM RESPONSE 

COPY FILE Copies the APL functions in the work space 

FILE into an active workspace. This work- 
. space contains the functions called by the 
user to create/and update data files. 

ASSIGN Assigns input data set name to an APL file 

name to which an APL function is accessible. 
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USER COMMAND 


SYSTEM RESPONSE 


BLDPIC 


BLDTAB 


BLDIDX 


CENTROID 


EDIT 


Creates API. Picture Files 21, 22, 23, 24. 
See Section 3 of Part IV Program Descrip- 
tion for more details. 

Creates APL Tabular Files 11, 12, 13. 

See Section 3 of Part IV Program Descrip- 
tion for more details. 

Creates APL Index Files 31, 32, 33. See 
Section 3 of Part IV Program Description 
for more details. 

This function is used when an error is 
detected in the centroids of Index File which 
is initially created by the function BLDIDX. 

After defining exactly one block group of 
block level data under analysis, this func- 
tion first displays the map of the area then 
allows one to identify each block. To identify 
a block, move the crosshairs to the position 
where the block’s data value should be 
printed, then press the space bar and return. 
To quit before all are defined, type "Q". 

After placing exactly one block group of 
block level data under analysis, this func- 
tion allows one to add, delete or replace 
street segments. Type EDIT and follow 
-the instructions on the screen. Block 
boundaries are edited first and group 
boundaries are edited next. When the 
computer asks 'WHAT?', type as follows: 

A to add — when the cross-hair appears 

move it to a beginning position 
of the segment you wish to add 
and press the space bar first . 
then return. Repeat as often 
as needed. It requires a mini- 
mum of two inputs: -from and 
to positions. Type a Q and 
return to terminate input. 

D to delete — when computer asks ‘NODE 
NUMBER? ' type one of the 
numbers that are displayed 
at each node. Continue the 
same as many times as needed. 
Type a Q to terminate. 

Rto replace— (Same as D above. ) 
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3 . 0 SAMP LE PROS LEMS 

With the initial set of commands found listed under HELP most users' 
will find sufficient computer power to meet their data and mapping needs. 
LUMIS is largely a self-teaching system, and persevering users will gain con- 
siderable skill in use of the system without the aid of direct instruction. 

To aid beginning LUMIS users a series of illustrative problems have 
been worked using the major system commands. A single replication of each 
of these problems is usually sufficient to acquaint the operator with each of 
the modules. 
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PART III 


SYSTEM SPECIFICATIONS 


1.0 INTRODUCTION 

The LUMIS interactive version (LUMIS-IV) is an on-line computer 
software system which operates on a computer operating system supporting 
APL and FORTRAN programming language. 

The purpose of LUMIS-IV is to provide a dynamic method of retrieving 
meaningful data and display them instantly on terminal in the form of map or 
table through an on-line, interactive, computer operating system. 

The LUMIS-IV Data Base Files are initially created by applying a 
series of programs written in FORTRAN programming language taking as input 
Third Count Summary Tape and Geographic Base File (DIME) of Bureau of the 
Census. The user has the option available to merge other data sets aggregated 
at the Block level and encoded in the Data Base File. If necessary, the user 
can also provide digitized block boundaries and map polygons in the Data Base 
File. Further manipulations of the Data Base Files as well as the retrieval and 
display of data on terminal are performed by interactive functions (programs) 
written in APL. 

LUMIS-IV has operated on several Time Sharing Operating Systems. 
The system can operate on a variety of keyboard terminals in the tabular mode, 
but was designed for graphical output on the Tectronics 4013 and 4015 terminals. 

2. 0 SYSTEM DESCRIPTION 

2. 1 Operating System 

’'LUMIS-IV can be transferred onto any operating system that supports 
APL and FORTRAN programming languages with a minimum conversion effort. 
The software is programmed to call only basic APL and FORTRAN IV-G sub- 
routines supported by IBM. 
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Terminal 


2 . 2 

Any terminal with standard APL character keys may be used to operate 
LUMIS-IV. However, a graphic terminal capable of displaying AlPL and ASCII 
characters is required in order to display area maps. 

2. 3 Language 

LUMIS-IV programs are written in APL and FORTRAN IV. In order to 

minimize conversion efforts of users from one system to another, only the 
standard version or code of prograrnrning languages are used in LUMIS-IV, In 
this particular version the GTS System Commands of Boeing Computer Services 
are used to control the operations of LUMIS-IV. 

2.4 APL Work Space 

LUMIS-IV consists of two work spaces; PROCESS and FILE. 

1) Work space PROCESS contains functions to retrieve data, .manipu- ' 
late data and display data. The major functions stored in this work 
space are: DISPLAY, AREA, DATA, MAP, TABLE, 

■ CENTROID, EDIT, COST, RESET. 

2) Work space FILE contains functions to create files and update 
files. The major functions stored in this space are: CRCENT 
•CRIDX , CRPIC, CRTAB. 

HIERARCHY OF APL FUNCTIONS 

MAIN SUB SUB SUB 

CONVC 
DFILE 

CON VP 
DFILE 

CRTAB CONVT 

CRTAB 2 DFILE 

CRIDX' 


CRCENT 
CRCENT 1 
CRCENT2 
CRPIC 
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HIERARCHY OF APL FUNCTIONS (continued) 


MAIN 


iSUB 


SUB SUB 


CRIO 

CR20 

CR30 

CR40 

ERIO 
ER20 
ER3 0 
ER40 


MESSAGE 

CENTROID AREA 

COST PREP 

DISPLAY DATA ANS 

INIT TYPE 

DIV 

ID 

MAP BLK 

CHAIN 

GIN 

GRAPH BLK 

NODE 

SCALE 

MIN 

AREA ANS 

TABLE 


EDIT 

RESET 


TIEFILE 


AREA 


TIElO 

TIE20 

TIE30 

TIE40 

DECODE 

EDIT NODE 


3. 0 • PROGRAM DESCRIPTION (Note Fig. 3-0) 

'3. 1 APL Programs to Display Data (Note Fig. 3-1) 

3. 1. 1 DISPLAY . DISPLAY is the root function of Work Space PROCESS, 
initializes global variables and monitors overall process of retrieving and d 
playing data. 
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TABULAR DATA SYSTEM 


sf 


' THIRD ' 
COUNT 
CENSUS 



GROUP 

TAB 

DATA 


FILE n ) ( FILE 31 


BLOCK 

TAB 

DATA 


DATA 

DISPLAY 


Fig. 3-0 



DISPLAY PROGRAMS PICTURE FILES FILE CREATION PREPROCESS FILE 












Fig. 3-1. Display Procedure 


The Program reads Tract Number from File-30 and retains it as TIF 
in the memory, 

3. 1. 2 AREA . AREA defines the area to be displayed in terms of Tract, 

Group and Block. 

It generates the Tract Index TIX, Group Index GIX and Block Index BIX. 

The user answers questions posed by this function to select areas for 
analysis. He may call AREA immediately after RESET to initially place 
areas under analysis. He may also call AREA later to place additional 
areas under analysis. A reference map (Appendix A) is useful in determining 
which pieces of census geography are desired for analysis. 
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3. 1. 3 DATA . The user answers a question posed by this function to specify 
one or more data items he would like to use in subsequent maps and tables. 
DATA retrieves the data items for the areas under analysis from the files. 

The data items are listed in Appendix II. 

3. 1.4 MAP. After obtaining from the user a data items, this function draws a 
street map of the areas under analysis on the terminal, then writes the value of 
the data item for each area at a preselected point in the block (the point initially 
selected at the block center). 

3. 1. 5 TABLE. Similar to map except a table of the data item(s) with their 
census identification number is generated. A graphic terminal is not required 
to use this function, 

3.2 Tabular Data File Preprocessor (Note Fig. 3-2) 

3,2, 1 data Sources . DATA sources for the TABULAR DATA BASE can be 
from a variety of sources; Census, ERTS imagery, polygon overlay or unique 
files created by an agency for their own use. Files such as land use, licenses 
or health statistics are common among agencies. Any Census blocks data input 
can be used by this display technique, 

3. 2. 2 Sort/Merge . Prior to creating a single input file on tape each input file 
must be merged and sorted by comparable ID codes, forcing each file into a 
parallel order. 

3. 2.3 PCENS . PCENS reads data from the Third Count Census Tape and 
creates a tape file, CENSOO. CENSOO is input to the APL function, BLDTAB. 
PCENS also reads user provided data, if there is any, and merges it with 
census data. 
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Fig. 3-2. Tabular Data 








3. 3 CENTROID Coordinate Preprocessor - DACS (DIME Area Centroid 

System) (Note Fig. 3-3) 

3. 3. 1 DACS - Phase 1. DACS is written in two phases. In the first phase 
DACS creates an abstraction of standard 300 Character DIME files. The 
abstraction consists of the left and right regions, from and to nodes, and the x 
and y coordinates. The abstract is written in 'three levels. Level 1 is for entire 
Census Tracts. Level 2 is for Block Groups and the third level is Block. Each 
level is written in contiguous groups on the same temporary file. 

3. 3. Z System Sort. The DACS file is sorted by the left key or region in 
ascending order and passed to another temporary file. 

3.3.3 DACS - Phase II. The second phase of DACS performs computations, 
edits the file and writes any output files. The program reads the sorted inter- 
mediate tape and stores segment data for a region internally. When the first 
record for a different region is encountered, the accumulated data is passed to 
subroutine CHAIN. 

Subroutine CHAIN checks to see if the region's boundary segments 
form one or more closed loops. If they do not, a message to notify user of the 
condition is printed, and calculations are skipped. If they form more than one. 
closed loop, another message is printed; however, in this case, calculation is 
allowed to proceed. 

Data for a valid region is used in subroutine CALC, which computes the 
area and centroid coordinates. Subroutine POLYPT then determines whether or 
not the centroid lies within the region boundary. If it lies outside the boundary, 
an appropriate message is printed, and the centroid "x" and "y" coordinates are 
set equal to those of the nearest boundary segment node. Area and centroid are 
written onto the final output tape.^ 

3,4 Picture Data File Processor (Note Fig. 3-4) 

3.4. 1 PDRP . PDRP is a FORTRAN Program to create RDIME file. It takes 
DIME file as input and reads following data: 

1) Coding Limit Flag. 
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REFORMATES DIME FILE AND 
PRODUCES MULTIPLE RECORDS 
FOR BLOCK GROUPS 
AND TRACTS 


TEMPORARY FILE 


SORT FILE BY KEY (BLOCK ID) 


SORTED REDUCED FILE 


CALCULATES CENTROID 
OF EACH BLOCK 


TAPE FILE OF CENTROIDS 

FOR EACH BLOCK, BLOCK GROUP, 

TRACT POLYGON 


Fig. 3-3. Centroid Coordinate System 
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REPROCESSOR < 





SYSTEM SORT 


CHAIN 

(FORTRAN) 




DIME REFORKUT 
PROGRAM 


TEMPORARY FILE IN A 
REDUCED DIME FILE FORMAT 


SORT BY RECORD 
IDENTIFICATION 


TEMPORARY FILE 
SORTED 


CHAIN SEGMENTS 
TO CREATE A VERTEX FILE 


VERTEX FILE 


CTS-CONVERSATIONAL TERMINAL 
SERVICES 


Fig. 3-4. Picture Data 








2) Left/Right Tract Numbers and Suffices. 

3) JLeft/Right Block Numbers and Suffices. 

4) From/To xy Coordinates. 

PDRP detects and counts erroneous records by testing Coding Limit 
Flag. PDRP assigns level numbers to each record according to the Left/Right 
Tract Numbers and Block Numbers as follows; 

Level Description 

1 Block boundary 

2 Group boundary 

3 Tract boundary 

The selected items are written to the temporary disk file, RDIME. 

3.4. 2 System Sort . The reformatted DIME File is sorted by the record 
identification. The sort produces another temporary field, SDIME (Sorted 
DIME file). 

3*4, 3 , CHAIN . CHAIN takes SDIME as input and creates Vertex File of street 
segments. The purpose of CHAIN is to tie each segment one after another in 
order to facilitate the mapping function. Each segment is chained according to 
the level of boundary that the segment is representing. 

3. 5 APL File Creation and Update' Program Description 

3" 5. 1 CRTAB. CRTAB takes File-1 as input and creates the File 10, series 
files 11, 12, 13, Tabular Data Bases. The Block data of a group become a 
matrix of a Group data and stores as a record of an APL file, File'll. The row 
of matrix represents each block and the column represents data items. The 
column sum of data items of all blocks within a group becomes the group data, 
File 12, and the columns sum of data items of ail groups within a Tract becomes 
Tract data, File 13. 

3. 5. 2 CRIDX. CRIDX takes File- 5, Centroid File, as an input and creates 
the File-30 series, Index File. The centroid file created in the preprocessor 
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step is divided into three files; index to the block, index- to the block group, 
and index to tract. 

3.5.3 CRPIC. CRPIC takes File-2 as input and creates the File-20 Series, 
Picture Data Base. All the level 1 data are grouped by Group level and stored 
sequentially in a record of an APL file. Each chain with levels of 2 and 3 are 
stored separately as a record of an APL file. 

4.0 FILE DESCRIPTION 

4. 1 Third Count Summary Tape 

Third Count Summary Tape is originally created by Bureau of Census 
and used by LUMIS-IV as an Input File. See APPENDIX-B for the Data Record 
Layout of Third Count Summary Tape. 

4. 2 USERS' DATA FILE 

USER DATA FILES may be provided by user if necessary. The data in 
this file. should be aggregated at the Block Level. The number of data field is 
not limited; however, each record must include Tract Number with Suffix and 
Block Number in the first data field of records. 

Contents 

Row-1; Coi-1: Tract No. Suffix, . 

Group No. and Block No. 
TTTTSSGBB . 

Row- 2 through Row-N: 

Col-1: X-coordinate 

Y- coordinate 

4.3 File-1 (Temporary Tabular) 

File-1 is a temporary APL file created as input to the APL function 
CRTAB. File-1- is basically similar to Third Count Summary Tape except 
that File-1 is an APL accessible file and contains only integer data. See 
APPENDIX-B for the Data Record Layout, 
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4.4 Fiie-2 (Temporary Picture') 

File -2 is a temporary APL file created as Input file to the APL func- 
tion CRPIC. After File- 20 is created by CRPIC, the contents of File-2 is 
dumped to the external storage File-4 as back-up data file and File- 2 is deleted, 

9 


Record No, Shape 

1 - NT N X 6 


Contents 


Col-1: 

Tract number /Suffix and Block 
number /Suffix as TTTTSBBBS. 

Col-2: 

Record number as RRRRRR. 

Col-3: 

Level number as L. 

Col-4: 

From State Plane Y- coordinate 
as YYYYYYY. 

Coi-5: 

From State Plane X-coordinate 
as XXXXXXX. 

Col-6: 

To State Plane y-coordinate as 
YYYYYYY. 

Col-7: 

To State Plane x-coordihate as 
XXXXXXX. 


4.5 File-3 and File-4 (External Back-Up) 

File -3 and File -4 are external tape files created by a system DUMP 
and contains the contents of Fiie-1 and File -2. 


4. 6 File-10 Series (Tabular Files) 

The 10 series of files are the Data Base File of LUMIS-IV. They con- 
tain data from the Third Count Census tapes and other sources depending on the 
individual user's requirements. The files are broken down by their levels of 
3-gg^ega-tion, block, 'block group, and tract. 


File No. 

Shape 

Contents 

11 

NB X ND 

Block Level Data Fields 

12 

NB X ND 

Group Level Data Fields 

13 

NB X ND 

Tract Level Data Fields 
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4, 7 File- 20 Series (Picture Files) 

The 20 series of files contain the State Plane Coordinates obtained 
from the DIME file processed by CHAIN and CRPIC into four files. 


File No. 
21 

22 

23 

24 


Shape 

NG X NV X 2 

NG X 10 
NG X 10 
N X NV X 2 


Contents 


Block Dividing Segments in 
a Group (Lev=l) 

Group Outline Index 

Tract Outline Index 

Tract Dividing Segments: 
(Eev= 2, 3) 


4. 8 File- 30 Series (Index Files) 

The 30 series of files contain the block, group and tract identification 
numbers of Bureau of the Census along with the centroids and pointer of their 
data locations of the 10 and 20 file series. 


File No,. Shape 

31 NBx3 

32 NBx5 

33 NB X 5 


Contents 


Col-1: Centroid Y 

Col- 2: Centroid X 

Col- 3: Block ID as TTTTSBBBS . 

Col-1: Centroid Y 

Col- 2: Centroid X 

Col-3: Group ID as TTTTSG 

Col-4: Block beginning pointer as NNNNN 

Col- 5: Number of block as NNNNN 

Col- 1: Centroid Y 

Col- 2: Centroid X 

Col-3: Tract ID is TTTTS 

Col-4: Group beginning pointer as NNNNN 

Col-5: Number of group as NNNNN 
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APPENDIX A 


EXAMPLE OF A CENSUS TRACT REFERENCE MAP 




U.S DtPARTHXNTOrCOUMKItCB 

•UUAU CrTNI CCHJiri 


INSET MAP - TACOMA A ND VICINITY 


Hmim 
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TACPHA,WAM 
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APPENDIX B 

1970 THIRD-COUNT SUMMARY TAPE DATA -RECORD LAYOUT 
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APPENDIX -A 

1970 Third-Cotint Summary Tape Data Record Layout 

Table of Contents 

Data 


Numbe 

Data Description 

Page 

1-14 

Geographic Identification 


15-17 

Aggregate $ Value 

B-'6 

18-20 

Aggregate $ Monthly Contract Rent 

B-6 

21-23 

Aggregate $ Value for Units -with all Plumbing 
Facilities 

B-6 

24-26 

Aggregate $ Monthly Contract Rent for Units -with 
All Plumbing Facilities 

B-6 

27-32 

Race and Sex 

B-'6 

33-74 

Age and Sex 

B-'6 

75-84 

Population 14 Years Old and Over By Marital 
Status and Sex 

B-7 - 

85-91 

Relationship 

B-7 

92-98 

Population Under 18 By Relationship and Type 
of Family 

B-8 

99 

Total Housing Units 

B- 8 

100-103 

Occupancy /Vacancy Status 

B-8 

104-109 

Tenure and Race of Head 

B- 8 

110-112 

Type of Structure 

B- 8 

113-118 

Rooms in Unit 

B- 8 

119-125 

Aggregate Number of Rooms by Tenure and Race 
of Head 

B- 8 

126-131 

Persons in Unit 

B- 9 

132-137 

Aggregate Number of Persons by Tenure and Race 
of Head 

B- 9 

l38-!55 

Persons Per Room, Tenure and Race of Head 

B -9 

156-158 

Number of Units at Address 

B- 9 
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APPENDIX B. 
Table of Contents 


Data 


Number 

Data Description 

Page 

159-161 

Toilet Facilities 

■o 

I 

162 

Units with a Basement 

B-10 

163 

Units Lacking Complete Kitchen Facilities for 
Their Household Only 

B-10 

164 

Units Lacking Direct Assess 

B-IO 

165-175 

Value of Units 

B-10 

176^187 

Monthly Contract Rent 

o 
( — 1 
1 

pq 

188 

Units for Rent that Have Been .Vacant Less Than 
2 Months 

B-IO 

189 

Units for Bale Only that Have Been Vacant Less 
Than 6 Months 

B-11 

190 

Vacant Year-Round Units that Have Been Vacant 
6 Months or More 

B-11 

191-195 

Type of Household 

B-11 

196 

Units with Roomers, Boarders,- or Lodgers 

B-11 

197-210- 

Plumbing Facilities, Tenure and Race of Head 

B-11 

211-212 

Families by Plumbing Facilities 

B-11 

213-224 

Units with 1, 01 or More Persons Per Room By 
Plumbing Facilities, Tenure and Race of Head 

B-12 ' 

225-235 

Value for Units with all Plumbing Facilities 

B-12 

236-247 

Monthly Contract Rent for Units with all 
Plumbing Facilities 

B-12 

248-253 

Population in Units with 1, 01 or More Persons- Per 
Room by Tenure and Race of Head 

B-13 

254-255 

Population in Units by Plumbing Facilities 

B-13 

256-257 

Population in Units with 1. 01 or More Persons 
Per Room by Plumbing Facilities 

B-13 

258 

Number of Units with Contract Rent Allocated 

B-13 

259 

Number of Allocated Occupied and Vacant Year- 
Round Housing Units 

B-13 
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GENERAL FORMAT 


The FORTRAN format statement of the data record is : 


Al. A2 

3X, 16X, A4, A2, 6X, Al. 32X, 12X, 3A2, 6A1, 

6X. A3, 3: 

A4, A2, 

A3. 2X, Al, 12112, 23316. 18X. 



where; 




rAw 

= Alphanumeric field 



rlw 

= Numeric data field 



wX 

= Padding (space) field 



3 

= Field separator 



r 

= Repeat count for field (a blank 

= 1 field) 


w 

= Field length 






Field 

Data No, 

. Data Description 

Format 

Position 

1 

Record Type 

Al 

1 

2 

1970 State 

A2 

2-3 

- 

Padding 

3X 

4-6 

3 

1960 State 

A2 

7-8 

“ 

Padding 

16X 

9-24 

4 

Tract (Basic) 

A4 

25-28 

5 

Tract (Suffix) 

A2 

29-30 

- 

Padding 

6X 

31-36 

6 

Central Business District 

Al 

37 

- 

Padding 

32X 

38-69 

7 

1970 County of Tabulation 

A3 

70-72 

- 

Padding 

12X 

73-84 

8-9 

Sequencing Keys 

6X 

85-96 

- 

Padding 

3A2, 6A1 

97-102 

10-13 

Sequencing Keys 

A3, 3X.A4, A2.A3 

103-117 

- 

Padding 

2X 

118-119 

14. 

$ Symbol 

Al 

120 


Record Types are as follows: 

0 = Summary is inside the UA 
2 = Summary is in a Contract Block Area 

These codes are used to control the publication of the summaries in this 
file. 


Sequencing Keys contain various Geographic Codes as determined by the 
designated summary level (also see Page B-2). 
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Summary Categories and Sequencing Keys 


URBANIZED AREAS (BLOCK 
PUBLISHING AREAS) 


85- 91- 103- 109- 115- 
90- ■ 96- 106- 114 120 


Tract bbAAAAbb 99 9 9C CCbbbDDDDEEbbbbb$ 

Block bbAAAAbb 999 9CCCbbbDDDDEEFFFbb$ 

CONTACT BLOCK PUBLISHING 
AREAS 


Tract or Block Numbering 
Area 

Block 


GGHHII If CCCbbbDDDDEEbbbb$ 
GGHHII 1/ CCCbbbDDDDEEFFFbb$ 


AAAA = 
CCC = 
DDDD = 
EE = 
FFF = 
GG = 
HH = 
II = 


Block Publishing Area (UA) 

County 

Tract or, in untracted areas. Block Numbering Area (BNA) 
Tract Suffix (if applicable) 

Block 
1960 State 

Contract Block Area (CBA)‘ 

Sub-Contract Block ARea 2/ 


y The contents of charcters 91-96 are variable. This Summary Area 
key serves to identify and/or sequence summaries component to the 
various Block Publishing Area reports. Possible content are: 

bbJJJJ = Designates a surrimary for a Tract of Block Component of 
a Contract Place 

CCCKKK = Where CCC represents Contract County and KKK represents 
MCD or CCd. 

999999 = Other Contract Area or Vicinity. 

These six digits identify each Contract Block Area 
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Field 


Data No. 

Data Description 
AGGREGATE $ VALUE: 

'Format 

Position 

15 

Total owner occupied 

112 

121-132 

16 

Negro owner occupied 

112 

133-144. 

17 

Vacant for sale only 

112 

145-156 


•, AGGREGATE $ MONTHLY CONTRACT RENT 

; 

18 

Total renter occupied 

112 

157-168 

19 

Negro renter occupied 

112 

169-180 

20 

Vacant for rent 

■ 112 

181-192 


AGGREGATE $ VALUE FOR UNITS WITH ALL PLUMBING 
FACILITIES: 

21 

Total owner occupied 

112 

193-204 

22 

Negro owner occupied 

112 

205-216 

23 

Vacant for sale only 

112 

217-228 


AGGREGATE $ MONTHLY CONTRACT RENT 
ALL PLUMBING FACILITIES: 

FOR UNITS WITH 

24 ■ 

Total renter occupied 

112 

229-240 

25 

Negro renter occupied 

112 

241-252 

26 

Vacant for rent 

POPULATION -RACE AND SEX: 

112 

253-264 

27 

Total: Male 

16 

265-270 

28 

Female 

16 


29 

Negro : Male 

16 


30 

Female 

16 


31 

Other: Male 

16 


32 

Female 

POPULATION-AGE AND SEX: 

Ig 

295-300 

33 

Male; Under 5 years 

16 


34 

5 - 

16 


35 

6 

16 


36 

7-9 

16 


37 

1.0-13 

. 16 

325-330 

38 

14 

16 


39 

15 

16 


40 

16 

16 


41 

17 

16 


42 

18-19 

16 

355-360 

43 

20 

16 


44 

21 

16 


45 

22-24 

16 


46 

25-34 

16 
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Data No, 


Format 


Field 

Position 


-Data Description 


47 

35-44 

16 

385-390 

48 

45-54 

•16 


49 

50 

55-59 

60-61 

16 


51 

62-64 

16 


52 

65-74 

16 

415-420 

53 

75 and over 

16 

421-426 

54 

Female: Under 5 years 

16 

427-432 

55 

5 

16 


56 

6 

16 


57 

7-9 

16 

445-450 

58 

10-13 

16 


59 

14 

16 


60 

15 . 

16 


61 

16 

16 


62 

17 

16 

475-480 

63 

18-19 

16 


64 

20 

16 


65 

• 21 

16 


66 

22-24 

16 


67 

25-34 

16 

505-510 

68 

35-44 

16 


69 

45-54 

16 


70 

55-59 

16 


71 

60-61 

16 


72 

62-64 

16 

535-540 

73 

65-74 

16 


74 

74 and over 

16 



POPULATION-14 YEARS OLD AND OVER BY MARITAL STATUS 
AND SEX: 

75 

Male: Now Married (excludes 

sep.) 16 

553-558 

76 

Widowed 

16 

559-564 

77 

Divorced 

16 

565-570 

78 

Separated 

16 


79 

Never Married 

16 



80 Female: Now Married (excludes sep. ) 16 


81 

Widowed 

16 ■ 


82 

Divorced 

16 

595-600 

83 

Separated 

16 

601-606 

84 

Never Married 

16 

607-612 


RELATIONSHIP: 



85 

' Head of Household 

16 

613-618 

86 

Wife of head 

16 


87 

Child of head 

16 

625-630 

88 

Other relative of head 

16 


89 

Nonrelative (includes roomer, boarder, 
or lodger) of head in household 

16 
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Data No 


Data Description 


Format 


Field 

Position 


90 Inmate of institution in group quarters 16 

91 Other in group quarters 16 643-648 

POPULATION UNDER 18 BY RELATIONSHIP AND TYPE OF 
FAMILY; 


92 

Head or -wife of head of household 

16 

649-654 

- 

Own (never married) child of head; 

16 


93 

In Husband-wife family 

16 


94 

In other family with male head 

16 

655-660 

95 

In family with female head 

16 


96 

Other relative of head 

16 


97 

Nonrelative (includes roomer, boarder. 

» 



or lodger) of head in household 

16 

685-690 

98 

In group quarters 

16 

691-696 

99 

TOTAL HOUSING UNITS; 
Total housing units 

16 

697-702 

100 

OCCUPANCY /VACANCY STATUS: 
Occupied 

16 

703-708 

101 

Vacant year-round; For rent 

16 


102 

For sale only 

16 


103 

Other vacant 

16 

721-726 

104 

TENURE AND RACE OF HEAD; 
Owner Occupied; Total 

16 

727-732 

105 

White 

16 


106 

Negro 

16 


107 

Renter Occupied: Total 

16 

745-750 

108 

White 

16 


109 

Negro 

16 

757-762 

110 

TYPE OF STRUCTURE: 
1-unit structure 

16 

763-768 

111 

2-or-more-unit structures 

16 


112 

Mobile homes or trailers 
(occupied only) 

16 

775-780 

113 

• ROOMS m UNIT ; 
1 room in unit. 

16 

781-786 

114 

2 rooms in unit 

16 


115 

3 rooms in unit 

16 


116 

4 rooms in unit ' 

16 


117 

5 rooms in tinit 

16 

805-810 

118 

6 rooms in unit 

16 

811-816 
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Format 


Field 

Position 


Data No. Data Description 


AGGREGATE NUMBER OF ROOMS 1/ BY TENURE AND RACE 
OF HEAD; 


119 

Total occupied and vacant year-round 
units 

16 

817-822 

120 

Total occupied 

16 


121 

Owner occupied 



122 

Renter occupied 

16 

835-840 

123 

Total Negro occupied 

16 


124 

Negro owner occupied 

16 


125 

Negro renter occupied 

16 

853-858 


PERSONS IN UNIT; 



126 

1 person in unit 

16 

859-864 

127 

2 persons in unit 

16 

865-870 

128 

3 persons in unit 

16 


129 

4 persons in unit 

16 


130 

5 persons in unit 

16 


131 

6 persons in unit 

16 

889-894 


AGGREGATE NUMBER OF PERSONS 1/ BY TENURE AND 


RACE OF HEAD: 



132 

Total occupied 

16 

895-900 

133 

Owner occupied 

16 


134 

Renter occupied 

16 


135 

Total Negro occupied 

16 


136 

Negro owner occupied 

16 


137 

Negro renter occupied 

16 

925-930 


PERSONS PER ROOM, TENURE AND RACE OF HEAD; 

138 

Total occupied: 1. 00 or less persons 




per room 

16 

931-936 

139 

1„ 01 - i;50 

16 


140 

1, 51 or more 

16 


141 

Owner occupied: 1. 00 or less persons 




per room 

16 


142 

HOI - 1„50 

16 

955-960 

143 

1. 51 or more 

16 


144 

Renter occupied: 1„ 00 or less 




persons per room 

16 


145 

1. 01 - 1„ 50 

16 


146 

lo 51 or more 

16 


147 

Total Negro occupied: 1, 00 or less 




persons per room 

16 

985-990 

148 

1. 01 - H 50 

16 


149 

1. 51 or more 

16 
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Field 


Data No. 

Data Description 

Format 

Position 

150 

Negro owner occupied: 1, 00 or less 




persons per room 

16 


151 

1. 01 - 1. 50 

16 


152 

1. 51 or more 

16 

1015-1020 

153 . 

Negro renter occupied: 1. 00 or less 




persons per room 

16 


154 

1. 01 ~ 1. 50 

16 


155 

1. 51 or more 

16 

1033-1038 


NUMBER OF UNITS AT ADDRESS: 



156 

2-4 units 

16 


157 

5-9 units 

16 

1045-1050 

158 

10 or more units 

16 

1051-1056 


TOILET FACILITIES: 



159 

Flush toilet for this household only 

16 

1057-1062 

160 

Flush toilet but also used by another 




household 

16 


161 

No flush toilet 

16 

1075-1080 

162 

UNITS WITH A BASEMENT: 

16 

1075-1080 

163 

UNITS LACKING COMPLETE KITCHEN FACILITIES FOR 


THEIR HOUSEHOLD ONLY: 

16 

1081-1086 

164 

UNITS LACKING DIRECT ACCESS: 

• 16 

1087-1092 


VALUE OF UNITS: 



165 

Less than $ 5, 000 

16 

1093-1098 

166 

$ 5, 000 - $ 9, 999 

16 


167 

$10. 000 - $14, 999 

16 

1105-1110 

168 

$15, 000 - $19, 999 

16 


169 

$20, 000 - $24, 999 

16 


170 

$25, 000 - $34, 999 

16 


171 

$35, 000 - $49, 999 

16 


172 

$50, 000 or more 

16 

1135-1140 


COUNT OF UNITS: 



173 

Total owner occupied 

16 

1141-1146 

174 

Negro ower occupied 

16 


175 

Vacant for sale only 

16 

1153-1158 


MONTHLY CONTRACT RENT: 



.176 

With cash rent: Less ihan $40 

16 

1159-1164 

177 

$ 40 - $ 59 

16 

1165-1170 

178 

$ 60 - $ 79 

16 
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Data No. 



Field 

Data Description Format 

Position 

179 

$ 80 - $ 99 

16 


180 

$100 - $119 

16 


181 

$120 - $149 

16 


182 

$150 - $199 

16 

1195-1200 

183 

$200 or more 

16 


184 

Without payment of 
cash rent 

16 

1207-1212 


COST OF UNITS; 



185 

Total renter occupied 

16 

1213-1218 

186 

Negro renter occupied 

16 


187 

Vacant for rent 

16 

1225-1230 

188 

UNITS FOR RENT THAT HAVE BEEN 
VACANT LESS THAN 2 MONTHS 

16 

1231-1236 

189 

UNITS FOR SALE ONLY THAT HAVE 
BEEN VACANT LESS THAN 6 
MONTHS 

16 

1237-1242 

190 

VACANT -YEAR ROUND UNITS THAT 
HAVE BEEN VACANT 6 MONTHS OR 
MORE 

16 

1243-1248 


TYPE OF HOUSEHOLD: 



191 

Husband-wife family 

16 

1249-1254 

192 

Other family with male head 

16 

1255-1260 

193 

Family with female head 

16 


194 

Male primary individual 

16 


195 

F emale primary individual 

16 

1273-1278 

196 

UNITS WITH ROOMERS, BOARDERS, 
OR LODGERS: 

16 

1279-1284 


PLUMBING FACILITIES, TENURE AND RACE OF HEAD: 
Total occupied and vacant year-round; 

197 With all plumbing facilities 16 1285-1290 

198 Lacking one or more plumbing fac. 16 

Total occupied; 

199 With all plumbing facilities 16 

200 Lacking one or more plumbing fac. 16 


B-11 



Data No. 


Data Description 


Format 


Field 

Position 


Owner occupied: 


201 

With all plumbing facilities 

16 


202 

Lacking one or more plumbing fac. 
Renter occupied 

16 

1315-1320 

203 

With all plumbing facilities 

16 


204 

Lacking one or more plumbing fac. 
Total Negro occupied: 

16 


205 

With all plumbing facilities 

16 


206 

Lacking one or more plumbing fac. 
Negro owner occupied 

16 


207 

With all plumbing facilities 

16 

1345-1350 

208 

Lacking one or more plumbing fac. 
Negro renter occupied 

16 


209 

With all plumbing facilities 

16 


210 

Lacking one or more plumbing fac. 
FAMILIES BY PLUMBING FACILITIES 

16 

1363-1368 

211 

With all plumbing facilities 

16 

1369-1374 

212 

Lacking one or more plumbing fac. 

16 

1375-1380 


UNITS WITH 1. 01 OR MORE PERSONS 
FACILITIES, TENURE AND RACE OF ; 

Total occupied: 

PER ROOM BY PLUMBING 
HEAD: 

213 

With all plumbing facilities 

16 

1381-1386 

214- 

Lacking one or more plumbing fac. 
Owner occupied: 

16 


215 

With all plumbing facilities 

16 


216 

La!cking one or more plumbing fac.' 
Renter occupied: 

16 


217 

With all plumbing facilities 

16 

1405-1410 

218 

Lacking one or more plumbing fac. - 

16 
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Field 

Data No., Data Description Format Position 

Total Negro occupied: 

219 With all plumbing facilities 16 

220 Lacking one or more plumbing fac. 16 


Negro 9 wner occupied: 


221 

With all plumbing facilities 

16 


222 

Lacking one or more plumbing fac. ■ 

16 

1435-1440 ■ 


Negro renter occupied: 



223 

With all plumbing facilities 

16 


224 

Lacking one or more plumbing fac. 

16 

1447-1452 


VALUE FOR UNITS WITH ALL PLUMBING FACILITIES: 


COUNT OF OWNER-OCCUPIED UNITS: 


225 

Less than $ 5, 000 

16 

1453-1458 

226 

$ 5, 000 - $ 9, 999 

16 

■ 

227 

$10, 000 - $14, 999 

16 

1465-1470 

228 

$15, 000 - $19, 999 

16 


229 

$20, 000 - $24, 999 

16 


230 

$25, 000 - $34, 999 

16 


231 

$35, 000 - $49, 999 

16 


232 

$50, 000 or more 

16 

1495-1500 


COUNT OF UNITS: 



233 

Total owner occupied- 

16 

1501-1506 

234 

Negro owner occupied 

16 


235 

Vacant for sale ordy 

16 

1513-1518 


MONTHLY CONTRACT RENT FOR UNITS WITH ALL PLUMBIN 


FACILITIES: 



236 

With cash rent: Less than $40 

16 

1519-1524 

237 

$ 40 - $ 59 

16 

1525-1530 

238 

$ 60 - $ 79 

16 


239 

$ 80 - $ 99 

16 


240 

$100 - $119 

16 


241 

$120 - $149 

16 


242 

$150 - $199 

16 

1555-1560 

243 

$200 or more 

16 


244 

Without payment of 




cash rent 

16 

1567-1572 
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Field 

Data No . Data Description Format Position 

COUNT OF UNITS: 


245 

Total renter occupied 

16 ‘ 

1573-1578 

246 

Negro renter occupied 

16 


247 

Vacant for rent 

16 

1585-1590 


POPULATION IN UNITS WITH 1. 01 OR MORE 

.PERSONS PER 


ROOM BY TENURE: 



248 

Total occupied 

16 

1591-1596 

249 

Owner occupied 

16 


250 

Renter occupied 

16 


251 

Total Negro occupied 

16 


252 

Negro owner occupied^ 

16 

1615-1620 

253 

Negro renter occupied 

16 

1621-1626 


POPULATION IN UMTS BY PLUMBING FACILITIES: 

254 

With all plumbing facilities 

16 

1629-1632 

255 

Lacking one or more plumbing fac. 

16 

1633-1638 


POPULATION IN UMTS WITH 1. 01 OR MORE PERSONS PER 


ROOM BY PLUMBING FACILITIES: 



256 

With cill plumbing facilities 

16 

1639-1644 

257 

Lacking one or more plumbing fac. 

16 

1645-1650 

258 

NUMBER. OF UMTS WITH CONTACT 




RENT ALLOCATED; 

16 

1651-1656 

259 

NUMBER OF ALLOCATED OCCUPIED 




AND VACANT YEAR-ROUND HOUSING 




UNITS: 

16 

1657-1662 


Padding 


1663-1680 
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APPENDIX-C DIME FILE DATA RECORD LAYOUT 


Data 

No. 

Data Description 

Data 

Length 

Record 

Position 

Data 

Type 

1 

Street Prefix Direction 

2 

1-2 

A 

2 

Street or Non-Street Feature Name 

. 20 

3-22 

AN 

3 

Street Type 

4 

23-26 

A 

4' 

Street Suffix 

2 

27-28 

A 

5 

Non-Street Feature Code 

1 

29 

AN 

6 

1970 Enumeration District Left (1970 Non 
Mail Census Areas Only) 

5 

30-34 

AN 

7 

Blank (Census Use Only) 

6 

35-40 

B 

8 

1970 Enumeration District Right (1970 
Non-Mail Census Areas Only) 

5 

41-45 

AN 

9 

From Map (Basic Number). 

3 

46-48 

N 

10 

From Map (Suffix) 

2 

49-50 

A 

11 

To Map (Basic Number) 

3 

51-53 

N 

12 

To Map (Suffix) 

2 

54-55 

A 

13 . 

Coding Limit Flag 

1 

56 

AN 

14 

Left Low Address 

6 

57-62 

N 

15 

Left High Address 

6 

63-68 

N 

16 

Right Low Address 

6 

69-74 

N 

17 

Right High Address 

6 

75-80 

N 

18 

File Code 

4 

81-84 

N 

19 

Record Number 

6 

85-90 

N 

20 

Check Digit 

1 

91 

N 

21 

Census Tract Left (Basic) 

4 

92-95 

N 

22 

Census Tract Left .(Suffix) 

2 

96-97 

N 

23 

Census Tract Right (Basic) 

4 

98-101 

N 

24 

Census Tract Right (Suffix) 

2 

102-103 

N 
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Data 

No. 

Data 

Data Description Length 

Record 

Position 

Data 

Type 

25 

ZIP Code Left 

5 

104-108 

N 

26 

ZIP Code Right 

5 

109-113 

N 

27 

SMSA 

4 

114-117 

N 

28 

Street Code (1970 Mail Census Areas Only) 

5' 

118-122 

N 

29 

From Node 

4 

123-126 

N 

30 . 

To Node 

4 

127-130 

N 

31 

Place Code Left 

4 

131-134 

N 

32 

Place Code Right 

4 

135-138 

N 

33 

State Code Left 

2 

139-140 

N 

34 

County Code Left 

3 

141-143 

N 

35 

Minor Civil Division Code/Census County 
Division Code Left 

3 

144-146 

N 

36 

1970 Congressional District Left 

2 

147-148 

N 

37 

1970 Area Code Left 

3 

149-151 

N 

38 

Block Left (Basic) 

3 

152-154 

N 

39 

Block Left (Suffix) 

2 

155-156 

N 

40 

1960-1970 Annexation Code Left (1970 Mail 
Census Areas Only) 

1 

157 

AN 

41 

State Code Right 

2 

158-159 

N 

42 

County Code Right 

3 

160-162 

N 

43 

Minor Civil Division 

3 

163-165 

N 

44 

1970 Congressional District Right 

2 

166-167 

N 

45 

1970 Area Code Right 

3 

168-170 

N 

46 

Block Right (Basic) 

3 

171-173 

N 

47 

Block Right (Suffix) 

2 

174-175 

N 

48 

1960-1970 Annexation Code Right (1970 
Mail Census Areas Only) 

1 

176 

AN 
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Data 

No. 

Data Description 

Data 

Length 

Record 

Position 

Data 

Type 

49 

From .State Plane Code 

2 

T77-178 

N 

50 

To State Plane Code 

' 2 ' 

’ 179-180 

N 

51' 

- From Map Set Mile (X Coordinate) 

6. 3 

181-186 

n' 

52 

From Map Set Mile (Y Coordinate) 

’ 6. 3 '■ 

187-192 

N 

53 

To Map Set Mile {X Coordinate) 

6. 3 ' 

• 193-198 

N 

54 

To Map Set Mile (Y Coordinate) 

6. 3 

199-204 

N 

55 

From Latitude (Y Coordinate) 

6.4 

205-210 

N 

56 

From Longitude (X Coordinate) 

7.4 

211-217 

n' 

57 

To Latitude (Y Coordinate) 

6. 4 

218-223 

N 

58 

To Longitude (X Coordinate) 

7.4 

224-230 

N 

59 

From State Plane (Y Coordinate) 

7 

231-237 

N 

60 

From State Plane (X Coordinate) 

7 

.238-244 

N 

61 

- To State Plane (Y Coordinate) 

7 

245-251 

N 

62 

To State Plane (X Coordinate 

7 

252-258 

N 

63 

Blank (Census Use Only) 

42 

259-300 

B 
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APPENDIX D 

LUMIS INTERACTIVE GRAPHICS APL PROGRAM LISTINGS 


D-1 



'•«/?£■«( D]v 

V fiPEAiAtIrJiT 
[II Of[U>[. 1 
til ‘HEU AREOI 
[■J] -»0'flWS'NOi'' 

[41 3m() 

15] CH>-PB'-PD~PP^^O 

16] IL'ENT-RH-fl 40 MO 
[ 7 ] PLL>-I^l 

13] HT-tTIF^tux-EREM ZS 1>[;3I^10000 

19 ] ' ls-.'leuel: • 

110) j^<-ltQ 

tin 0 *Af 'S 6 T 0 ' >/t6 

ri£) ,'G' ,'T' ,'Q' I/L10,L12,LZ0.0 

(13) Li.: 'LEVELS fiPE B,G OR T' 
tl4) -L5 

[151 U0:-i.l5,Lft'>-l 

[16] U2:i.£(/-2 

[17] L15:TPflCr OHB GROUP NUHBERS1 

[18] LZO:J-ri 

[19] n<-J, ‘! ' 

[20] -•iat3ir<-[!])- ')/-1.70,0 

[21] -(O-'/TftIUttBi/LZS 

[22] IDT^DECODEn i^ltT-lT 

[23] ID6*-(1,M*T)/1*7 

[24] -[.35 

[25] LlSi'UROUG mrtBER' 

[26] -*(1.£Vx3)/[.20 

[27] i.30;iLfU*-3 

[20] 'TRACT NUt1BER<S)L ' 

[291 -»((ltr«-D)»'0', ' ‘)/L7fl.O 

[30] *(0-^/TiHUt1A)/L23 

[311 IDT^DECODEll,nT)HT 

[32] LZSt^i'-/L>-NTlPT*-TlFiIDT)/L4a 

[331 'TRACT ';l('L)/II>T}*iO:' ARE NOT IN FILE' 

[34] 'TRY AGAIN' 

[351 -(tfy*l,2,3)/1.20/L20,L30 

[361 L40:-»(Lfy<3)/L50 

[371 INDX-INDK. [ 1 ] ( ( 'PH , 3 ) / r/A [ P7; 1 3 ] 

[ 36 ] CN>-CN, 1 

[39] RN*-i\,tPT)tPT 

[40] >I 

[41] PP<-ifl 
[421 Z^.RN 

[431 L42tPP-PP,iFREA0 Z2,ZUmi4} 

[44] •*([ f2)>J’*-jn)/[.42 

[451 -*0 

1461 1.50iW6-frtrl00>10tL(SIlf«-f/?frtf 32.Pr)I;3)+1000 
1471 ->(141 ltiCC)/L51 

1 48 ) IDG*-A 

[49J [,5i:->('/W6lPG*-^PiIflC)/[.SS' 

[501 'TRACT 'JimiOJ' CONTAINS <SA!' GROUPS' 
[511 -*L20 

[S2]' [.55:PP-PP,(?I.V[Pffl4] 

[531 IDEN^T,iIDT-HD).IDG 

[541 IDENT<-IDENT, lUli 40)fIiJ£N,<40-(#J[)fW) )f ' 

[551 -(2£V*l)/'[.59 

[561 CN'-CN.PT 

[57] PD-iO 

[581 PD*-PD,PG 

[59] RN-RNAiUi 40) rPB A 40- LPD)fO 

[ 60 ] IHDXt-IHBX, [ 1 H < f PC ) , 3 ) tGIXlPGt 1 3 1 

[ 61 1 ->1.65 

[62] L59tJn 

163] CN*-tO 

[641 CN-CN,GIXIPG14) 

[651 PD*'PD,GIXIPG!S) 

(661 LBO’.INDX-INDXAIUFREAD Zl, CNIJVI : iZ} 

167] ->((4CW)iJ«-J>n/i60 

[60] 1.65:W*1 
[691 ->[.20 

[701 [.70:->0,fLC<J<-l 


ORIGINAL PAGE I§ 
OP POOR QUALITY 



^CBNmmo]^ 

CENTROIDtB;l;j;NB;NC‘.uT,T-v-vv - r 
( 1 J PRBP 
[2J FLGO--0 
[31 LUdREA 
[4] ->(RGO-1VL40 

[51 99127 12 

[63 UDL 3 
[73 QHfilH 
[81 am VTX 
193 GRAPH 
[101 NB>-UtIDX 
[111 r<- f NJ3 , 2 ) ft1IN*GIN*FF 

(121 rC;i3<-rt;ll-(0,iWfi-l)<25tFf 
[13 3 -fi.fV-2 31/[.2,L3 

tisl 59ifr.-l0.S*r)tfCll3fTF-(10000l0 2imY3 + 10 
(161 (.2:991(7-10. 5*nPC;3)MOCfTB*-100xia000OI0 2i0 

[171 HB<-HtT 
[181 -L4 

[191 £.3:5-r0 2*0 "2*IJJY(Fn 3 1+1000000 

(211 ^ ^ *S<-DECODE B 

(221 [.4IJ+1 

(231 (.5: + (-'/10>yY'-irW)/U0 

(241 -*(GC-’<}' )/(.40 

(251 y-l 2+7DY(1?W[J13 121-10. 

261 SSXY aOBEll.fZirZ^-iBlJil) 

273 991(1 2fTlJ}})aODE 1 5f'X‘ 

(283 ■*lNBiJ*-J*ii/L5 

[293 1.40:99129 56 107 32 64 31 

(303 B-'SrtVf7 ' 

(311 +L43*aNS'WV'' 

1 32 3 IDX FREPLACEm^LEV > , CN 
(331 LAZi'tiOREI ' 

(341 --LU&HS'rH' 

£35] LAS-.'EHD OF CENTROID' 

C361 FUNTIE FNUtlS 


2HDXIPG} 11+1000 


Tcosnni? 

V P<-COST 

(11 <2 4f >CF(/:G0H: ' 'ssrzi .J?'o2 l^l 13-[Wn2 :.l+25no 3600000 


«£>£aw( a l:: 

•} R-DECODE ,V 

(11 P-10000 10 unioox.ix 

(23 P-IOOOO toi' 2 0:fi),[lir>'( 2 ,I»fPup 


uf'/ffPiim Qi» 

p DISPLAY. 

(11 IHIT ' 

[21 L%‘-OUTLINE 

[31 -(1-P(.GO)/L20 

[41 LOOK 

[53 -'l'Fi.GO)/L20 

(61 -:m = 0<-U5 

( 7 1 TABLE 

[81 -L5 

[91 LW-HhP 

[101 -(.5 

[111 L20:0fOHL 1 

[1.J1 FUNTIE FNUtlS 

[131 ‘END OF PROCESS' 
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TEWnDJ ? 

V £pit:p 

P*1 If’-' 

PREP 

L5SFLGQ*0 
■FLGS^O 

^(FLG0’l)/L65 
1>TX*FREAD Zl,PP 
LlZtlD^l 2*VTX 
VTX*-l BiVTX 
0-VTX 
USsfJIW 
99127 12 
DDL 2 

L17!99IPIC«-fli.;f V 
99129 56 107 32 64 31 
‘0K7 ' 

■* t . 60 « aNS'W 
EDITHODE 
-•<RGS*0)/2*I26 
l/‘-(((lt»(/)-l»>t/rX),2)tV 
99129 56 107 32 64 31 

5 M I 

£. 20 : ' WHAT ? ' 

-((ltB)-'A','£)S'O','/?')/L30,£.40,£.65,£.S0 
'TYPE A.D,0 OR R AND RETURN' 

■* 1.20 , 

L30 :f£.C*-0' 

L32 txr*-t 0 . ^*HIN*GIH*FF 
MGC-'a'^/LZS 
991(1 2tXY)HODE P 
OX TO ADDi 


tn 
12] 
I3J 
C4] 
(51 
161 
£7) 
£81 
191 
£10 
£11 
£12 
£13 
£14 
£15 
£16 
£17 
£18 
£19 
£20 
£21 
£22 
£23 
£24 
£25 
£26 
£27 
£28 
£29 
£30 
£ 51 
£32 
£33 
£34 
£35 
£36 
£37 
(38 
£39 
£40 
£41 
£42 
£43 
£44 
£45 
£46 
£47 
£48 
£49 
£50 
£51 
£52 
£53 
£54 
£55 
£56 
£57 
£58 
(59 
£60 
£61 
£62 
£63 
164 
£65 
£66 
(67 
(68 
(69 
£70 
(71 
(72 
(73 
(74 
(75 
(76 
(77 
(78 
(79 
(80 
(81 
£82 
£83 
£84 
£85 
£86 
£87 


-LZO^&NS'NY' 

*(FLG>0)yLZ5 _ 
VTX-UTX,11JXY>' 1 1 
F£.6*-l 
■•£.32 

LZ^!UTX»-UTX,IUXY 

-£.32 

LAQ:'N0DE NUtIBERI ' 
-((lt/*-Q)"'Oi 1/1.58 
'OK TO DELETE NODE >:J;'V 
tLAO^ANS'NY' 
L*''/L*-lWTX)iiVTUJl 1 

UTX»-llTXtL/H: 1 
-£.40 

LZtr.'NODE NUtIBERT ‘ 
-((lfJ*-D)*'t}')/LS8 
xy*-io.5*Hr«*cmt/f 
991(1 2rXY)U0DE P 
'OX TO REPLACE NODE <tJ:'7' 
■>L50>‘dNS'NY' 

L-'-/L-( WTX)flVTUJ;] 

LN-L/n-tUfL 

K*-! 

LS2i*lUTXlLmXl;lU0i/L55 

VTXlLmX}:]*-XY- 

*((tLN)lX»-X*l)/LZ2 

-L50 

LSStUTXlLNlXJS )*-XV»'l 1 
*UfLH)lK»-X*l)yL52 
-t50 

£.58:-(Fi.6S-l)/£. 

V-VTX 

-US 

L53--V*-0,ll'mX 

-£.15 

L60:‘SAV£1 ' 

■>L61"6NS'NY’ 

-(f£.CS*l)/£.63 
yry-i£),£iH;rx 
UTX FREPLACE 21.PP 

L6l:-(fL6S'l)/i62 

FLGS-l 

0<-VTX 

r*-i0 

T-T.FREAD 22, PP 
T*-T,FREAD 2Z.PP 
/•■O 

t62:-(i (rj<7*-I*l)/£.64 
VTX<-FREAD 24, rm 
ID- I 2t0TX 
UTX-1 fiWTX 

u-v,iimx 

-LIS 

L63:V7X-I£>,(l](yrX 
UTX FREPLACE 24.7(1 1 


D ~4 



t08J -.L62 
tS9] LSA'.'tlOREZ ' 
t901 -tLSuflNS'yN' 

1 91 1 FUHTIE FNUnS 
[93] L65«'fND OF EDIT' 

7 


vEDITmElOiv 
7 EDITNODE 
[II K-0 
Hi OTfO 2H0 

tZJ LlO»*((l*fVTX)<K*-K*li/Ll5 

[-43 jxivn/Lio 

[51 OT-VTAiUi itVTXlK:]) 

[61 ->1.10 

[71 [,lSs99l(tyn«0£>£T(2,i)^i^,.l»W 

7 


7iwmai7 

V IN IT 

[11 ■♦(io-(^wyrtS))/ti 
[23 FUNTIE FHUtiS 
[51 TIBFILE 

Ml Li'.FLGQ-TERt1-TBL<-EXPE^0 
[51 'GRAPHIC TERtimU ' 

[61 -*1.2x6NS'yW' 

[71 TERtl*-! 

[81 LZt'HAPI.'. 

[91 ■‘LJxfjWS'W 
[ID] TBL'l 

[111 LZt' PRESS. RETURN KEY TO CONTINUE' 
.(121 0 


or pooa QUALUX 



vDATAiai'T 

5 DoTH}Di£X}ZXP}i}jy.imNHiHH;er,DEir 

in iwf-io 
12) 

13) ' 

H) Ex*-Exp>-.n 

IS) -*((lt£XP)-'I',' )'L40,t50,LG0 

[61 EXPR--EX 
171 L2:Wrt<-iO 

[01 -HfEXP)‘I-EXPi>D')/Ld 
191 LZiNH^iO 
110) fXPin*-' ■ 

[111 L4:-M»£XP)<W*l)/i6 
1121 ^lEXPlIUHUtn/Li 
113) ■>iEXPlIUQP)/LE 
[HI -1.8 

[151 LS’.NH'-HN.EXPin 
[161 -M 

117) [,6:-*(0— /(WN<-iWW)f t55)/l.S 
[181 NH-NH,NN 

[191 ■>((fEXP)'I*-EXP\'D')/LlD 
[201 <Z 

(211 LBi'MTP IS Dl THRU DBS' 

[221 hU 

(23) [.10:r*-0 

12^1 DAT^-fO, ItfNrtJfiO 

(251 £.Hi->([.£W-i)/M6 

(261 LlSt-»((fCN)<I«-J*l)/W 

(271 £O*-C0<<ffMIJ D/ffWI/n 

1 28 ] r*- (FREAD(LEUnO) ,CWI I ) M PDlNff 1 

(29) -i.17 

(30) L16t-»((^PP) tI>-I*l)^VA 

,131) f-lFREAO ll-Pf’Iimi/’OUlJNrt) 

(32) U7:Mr<-MT,(lK(li^n, UrNtUn 

(33) -ILEV-l 2)//-16.L15 
[3^J W.JX-D 

[351 L20iXX^JX*l 

[361 OW-'O'.TWmXXl 

(371 IDH, '*-lO,JXUUlitDAT),XX)tDAT' 

[381 -<(ltfN«)./X^JX*I>/I.20 
(391 I’LL-LL'O’,' ,.DH 
HOI £-10 

(411 (.24:-*(U£XP)<I-£XPi ' + ■ )/t30 
(421 £XPm-' ' 

[431 £-£,£X[iI-l) 

(441 £-£, ' UW ‘ 

(45) £-f,Ji£X 
: 46 1 EX-E 
(471 -*[.24 

-(46) L30!CP‘l£X 
(491 mU/itU}>9 

(50) (.25:«/J-fr/(-l.U>'M)a/('LL)/00 

(51) 0£C-0 

1521 ■‘12’ UIYPE'DD')/m 

(531 a<-'HOU tIANY DECLUAL PLACES2 ' 

(54) -»(2H26)*0«£>£C- l*aWS 

(55) DEC’S 

(56) iwnoD-cc (m[2i<fl)*ofc*(i?fC)‘0)*i*iio#L0.5*irr/iffff).c£OT/)i) 
(571 DD’-l*/'~\DD’' '(♦DO 

(58) DDlLL^ifLL; , UrDD) HU fDD)* 'CENSORED’ 

(591 DDlINFi )-((»/W£)/l*fPO)Ml*^DP)t>rNFIMjrj'' 

(601 rt-(l0.5*rtrt«C£)48£-10«8fC 
(61) 'tIAXIttUH IS '.TAUi 
(621 •ttlHimtl IS ',TA12] 

(63) 'TITLE!' 

(641 TIT-^B 
(651 ->0 

(661 LAitTlT-' CENSUS BUREAU ID' 

(671 DD’-TDD’-ID 
(68) -*0 

(691 L50!-*(£XP/f'0)/(.65 
[701 EX-EXP‘-EXPR 
(711 -i£2 

1721 [.60;-'0,FLCO-1 

(731 LSSt'DATA NOT DEFINED' 

(741 <2 

V 


D-6 ' 



v/MrtDJ7 

V MAPstisr 

11] FF** 10000000000 

12] QHftlN 

133 swLf yrx 

141 'PRESS RETURN KEY TO CONTINUE' 
15] B 

t£l 99127 12 

171 OfOCL 1 

C81 GRAPH 

191 9SzlNDXl;i2mODE DD 
CIO I 99129 56 107 32 64 31 
111] •*(I.Hy<3)/I.10 
1121 'TRACT: ‘ ,T1DT*UI 
[131 -<L1S 

[141 LIO:' TRACT GROUPS' 

1153 IDENT 
U63 List' * 

1173 TIT 


1183 H>-4 2fP<-QIN 

59lfiI./ft0.S»((fH)»WN)«(W*4 2^0 0 ~10 0 "lO 200 0 2001+ff 
1203 rt‘-TU0.5+2000*ff)*10 

1213 991(1 27L0.5*tfIW*(P*“30 10)*ff)t(Oi)f(l,7tf)>rt 
1223 ' FEET' 


(23 3 B 


7 


rrPfP[03V 
7 PREP 

111 M7’ltfFNUMS)/L5 
[23 7/£30 

133 r/£40 

143 LStNT^-fTIF-lTIX-FREAO 33 1U;3]*10000 
7 

7fffS£nD17 
V RESET 

111 OEX 3LPNA DNL 2 
7 

7MgL£[D37 
7 TABLElIDlF 
1 13 ■'(TERtl'Oi'LS . 

123 'PRESS RETURN KEY TO CONTINUE' 

133 0 ■ 

141 99127 12 

[51 OfDitl. 5 
[6 3 O^DPI. 2 

[71 1.5iIC»-si00000 10 10fl0Tri/rt[;33 

[81 iillJl]-/D[5l3+10 

[91 IDll21*IDl}2UM 

[103 ■•(('•/ftim J2]-0),£«-^/IC[;33*0)/rA'S.6PS 

[113 IC( J33‘-(Ig[;3 1+10 l»(rg[J21« 103+10 

[121 ' TRACT GROUP BLOCK ',TIT 

[133 ('F£6.1,X3,5I3.X3,gf5.I.W«(Ii)[ Jll;Ig[;21;IJ3I;3 3)),|lg 

[14 3 -»0 

[153 GPS t ‘ TRACT GROUP ',TIT 

[161 ( 'Bf6.1,X3,gi3,X3'«(3D[;ll;I[)[;2])),fl[) 

[17 3 -*0 

[183 TKS:' TRACT ' 

(191 ('g£6.1,X3'»(IP[;i31).I3i3 

1201 B 

7 


ORIGINAL PAGE IB 
OE POOR QUALITY 


■ D-7 



»ewsiDi» 

V R‘~&as c 

[11 ■•(l 1 0»^C) >ff*CUt(ffxi > )/S*-Q>/0.i 

121 a<-'PL£AS£ TYP£ ',C.s(((l. 2*»C'fC',[ II ' , ' 

C),'! ■ 

[31 -•I 

[41 £:P<-iO 

V 

V &P£fi 


[11 PPnO 

[21 L5-.L£V<-'i 

[31 'TPPCT NUMB£R1 ‘ 

[41 -*(UtTO-,0)* ' ','On/L25,L45 

[51 TN>-D£CODElTN 

[61 ->(^/L-HTiPT*TIFiTN)/Lia 

[71 'TRPCT ':<.f-L)/TR)nas> PR£ NOT PWIL/iBL£' 

[81 -*£.5 

[91 L10:/?W-iO 

[lOJ CW<-1 

[111 RN-RH.PT 

■1121 IDX-TIX 

[131 WGfMLi^-lOOxlOILfGfX^Ffffrtil 32,P7)[;31+1000 
[141 -(2>H»rN)/£.25 

[151 PP*-PP,Gmi4] 

M61 ->0 

.[171 L2Gt' GROUP NUNBERT ‘ 

I181’ -*((lt«W*-.[l)-' 'O' )/t35,[.45 

[191 -('•/NGlPG^.PUiGH'-iGNl/LZd 

[201 'TRACT ';TNHO;' CONTAINS ' :AU:-' GROUPS’ 

[211 ->L25 

[221 L30:[.£y«-2 

[231 CN*PT 

(241 RN-id 


vTIEFILEiai^ 


7 

TIEFILE 

[11 


r/flO 

U1 


TIE20 

[31 


TIE30 



VTIElOCniO 


V 

rmo 

[11 


‘TABl'FTIE 11 

[21 


'TABZ'FTIE 12 

[31 

V 

'TABZ'FTIE 13 



vri£20(Qlv 


7 

TIE20 

[11 


'PICl'FTIE 21 

[21 


’PIC2'£rr£ 22 

(31 


'PICZ’FTIE 23 

(41 


'PIC4'Fri£ 24 



vrj£30(aiv 


7 

ri£30 

(11 


'mi'Frif 31 

(21 


'IUX2'FriF 32 

(31 

o 

•mZ’FTIE 33 


V 

»ri£40[aiv 


7 

ri£40 

[11 


‘TESTi'FTIE 41 

[21 


•TEST2‘FTIE 42 

(31 


'TESTZ'FTIE 43 

[4] 

7 

'r£sr4'Fri£ 44 



IZ%} Rtl^mi.PG 

1 26 J IDX<-GIX 

1271 PP^PP.GIXIPGSA-! 

1261 -*(2>lffGW)/1.35 

1291 -I) 

C30 1 t35: 'BLOClf ifVfL? 

[311 -*0’'dWS'Ny' 

[321 LEU-l 
[ 33 1 CN>-PP 

(341 LAO'-IDX^FREPD 31, PP 
[351 RN-mUDX 
[361 ••0 
[371 L45iFLG0>-l 

• 7 

^BLKlU]f 
V R,-BLK DILIR 
[11 d^-CO'PdlD/tlt^ii 

(21 R-U2’‘fD)^32 96 32 64)*,S32 32TlfF><( 15)- ( fC*-./)) WN 

(31 l«rt)NR 

[41 l?[Ll*-29 

7 


7{WN[D10 

7 QHRINHUXSTiN 
(13 UTX-O 2M0 
[21 I-l 
[31 /V‘i0 

[4] *iLEV-2 3)‘'L13,L2$ 

(51 Lio:(/rx*-wrx,i 11(1 0 xffffdP 21 . mn 

(61 •♦t(fPF)>J-I*l'/[.10 

(71 L*15:i*-1 

[0] L20!T,-FREAD 22,PPin 
[91 IX’-IX,i-L^UIX)'T 
(IIH -»afPP»iI*-/*l)^[.2D 
(in L23-.I-1 

(Ul LZ0--T-FREAD 2J,PPm 
[131 IX,-IX.('L*-TtIX)/T 
[141 -*((fPP''lI*-/*l)/L30 

[151 r-1 

(161 (.40t('rX*-('rX,[lKl OUfPErti) 24.1'nf 
(171' -.(ffIX'>W*l)/[.40 


vfiitnoiv 
' 7 P4.ri BIO B!T 
[11 ' flnwp<-(0-.fl)/iu^Bj I'-g 
[2,1. . R<-tH*B 

. 7 

7eiN[Ql7 
7 ' ‘ 

[11 99127 26_ 

(21 R-*12 2f l*tfxm»6C<-StH)«,*32 1 
(31 6C*^GC[11 . 


7.;PdPH(D17 

7 {iRBPHiJ 
(II P/C*-iD 
[21 PIC--PIC.BLK OTX 
1 3 1 99IP/C 
7 


7IC(617 
7 R,-lDiLL 

[11 •.f'-/l.[.-0-,P-LO.milOOOiO 2iIND>!y-'0 

[21 P[[.[.;ll'-J[/P[[.[.*-l.L/i<'l.[.;3rti00000 


7 


7f//mDi7 
7 niN 

[11 Mpx-fnt/rx 
[21 w/w-i/im 
[31 Pf <-1/700 1023+rtPX-rtIN 


7 


7</OC£[Ol7 

7 P<-y>, IIODE Fr.H 
(13 yx<-oripp/yx-(fyx3 

(23 R>-,29,m<lifYXl,4)mn^fYX),2 2)rZ2 96 32,643*3 1 2®32 32TyX),31), 

CiP ■ ■ 

7 
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^sCrtLftOJv 

V SCALE AST 
[11 WAX'-fi'IA 
121 /tIN-L/IA 

[31 rr«-(0.1»l0. 5*129. 37+Ff<-l/700 10234WX-rtJN) 

Ml QR.'HEU SCALE IS 'iTTl' FEET/INCH' 

[51 'NEU LOUER LEFT CORNER IS : ' 

[ 6 1 nm 21;'- FEET EAST BY ' 

[71 mm Hi' FEET NORTH.' 


nYPElQ]^ 

7 C0DE<-lYPE ARG 
[11 CODE^mC ARGi.Q 
[21 ■•( ( a»COD£) -=2). < ( 1 *CODE)~Z)1/OAR,F’ 

[31 -*(1 

[41 W/?:C0Df[21*-(l 2 3 0)[ 103l±rt;?Gl 
[51 -0 

£61 FN:CODEt21^l3-‘t/mCR ARG 


V 


’iCOWClDl'i 

7 Ri-CONOC CiliL 

[11 

[21 aL/II*-‘0' 

[31 R-i-C 

7 

7C0«W[Q17 
7 COHUPtllL 

[21 AlL/n<-' ' 

[31 A»-lA 

7 

7cc>w(*r[oi7 
7 COmiTiliL 
[11 I^xtL*-Tll-< 
[21 HL/ri*-' ' 

t31 T^iT 
Ml T-TDRLl 

7 


7C/?ciwr(Di7 

7 CRCEHUTAPEitAtR 
DEFILE 
C£«r-G 3^10 
rt*-WPfl 
t5«<l*-WPfl 
R>-COHOC A 
-*(9999*1?[11)/L10 
CENT*-CEHT,[imi 3 41 
<5 

UOtCfWr FAPPEHD 43 
TPrtCr' 

CfNr^O 3M0 

c£wr-c£wr,(iw(i 3 4 i 

/cfyKW 1 1+10 
(141 L2S’.A-TAPEi 
[151 Rx-COHOC A 
Rill 

■*(99999<.,.il)/£.50 
^IKEYnRl 11* 101 /LZO 
CENT-CENT^niRll 3 41 
*L2S 

[211 LZOiCEHT FAPPEHD 42 
1221 C£«r+D 3+10 
1231 C£Wr*-CfN7>[llff[l 3 41 
[241 ^ffy*-!/?! 11+10 
1251 -1.25 

1261 tSOtCfWr FAPPEHD 42 
(271 CEHT*a 3+ to 
(261 CEHT*C£NT.lllRH 3 41 
1291 (fEmPl 11+1000 
1301 LZ5iA*TAPEl 
1311 R*CONQC A 
1321 +t' '*+l?)/L65 
1331 +((f£Vi<LR[!l+1000l/t60 


111 

121 

(31 

MI 

(51 

(61 

171 

lai 

(91 

1101 

(111 

1121 

1131 


1161 

1171 

1181 

1191 

1201 


1341 CENT-CENT.limi 3 41 
1351 -1.55 

1361 LGO’.CEHT FAPPEHD 41 
1371 CEHT-il 3M0 
1381 C£Nr+C£Nr,[lW?[l 3 41 
[391 ff£V*-LSU 1+1000 
[401 -1.55 

Mil LGSi'EHD OF BLDCEHV 

7 



9C/?cf«nta3v 
V CRCENTl 
m 'LEVEL7 
[2J UW«-0 

13 J CN>-DN>-0 
£4] LUCN*-CN*l 
(51 ()-FREf)Bi'SO*LEUy,CN 
£6] L2!W*-£!W*1 
£7,1 F-Fflf#)£iMO*L£y).£JN 
£81 I£)X-a£l'*l)/lrt[;3) 

£93 m*-(L£y-2)/l/3£;3 3+1000 

£103 m-a£V*31/lA£;3 3+10000 
£111 ££//*•££ ;l 3 

£123 ■*(( imtlH-10003 •(!££«£ 1 3+1000 ))/£.5 

£131 CN.7£)X[l],C£Nm 

£H1 0 

1161 ’£.2 

£161 LZtL-lDXiCEH 

£171 »>-CEN(IDX 

1181 /H£./'i(ltM);l 2]-£ltt/t(ltfB)}2 31 
£191 A-IB 

£201 ft FREPlACE<2a*LEV).CN 

£211 -(CW't l*FSI7£(30*£.£t/)£21;)/n 

7 


7«C£W7’2t03? 

7 CRCENT2 
£11 >LEVELt ■ 

£21 £.£W+D 

£31 CN-a 

£■41 i.llCN*-CW+l 

£51 fl+£g£A£»(30+L£(/),CW 

£61 DN" i*CN 

£71 B-FREftD<^0*LEV),DN 

£81 /Cy*-lPf;3 1+1000 

£91 C£N+B£;il 

£101 -•( (II£X£1 1+10) -UCBmi 1+10) )/L5 

£111 CW.JDX£11,C£N£1I 

£121 B 

£131 +U 

£141 L^iL*IDX(CEN 

£153 t1-CEHiIDX' 

£161 ftlUUlfffty.l 21«-B£W/'i(lt>B);2 31 
£171 fl-l/l 

£181 ft FREPLRCE<.^Q*LEO).CN 

£191 -><CW<( i*FSIZElZ0*LEVn2]))/Ll 

7 


ORIGINAL' PAGE Eg 
OJ^ POOR QUALITY 


7C1?WC£DI7 

7 CRPIC-.TftPEUftSEND 
E 1 1 DEFILE 
121 riE20 
£31 'mZ'FTlE 32 
£41 TH>-FSIZE 32' 

£51 TW+rWI21-l 
£61 i/)+«0 

£71 CN*-0 

£81 PIC-0 2M0 
£91 LlsCW-CW-1 

£101 m*-UFREftD 32,CN)£J3 1+1000 
fill ID-ID, lllIBX 
£121 -l.CN<TN)/Ll 
£131 CAf-0 

£141 £.4!-((1-+ID)'CN-CW-1)/L5 

£151 r-io 

£161 T FftPPEHD 22 

£171 T FftPPEHD 2Z 

£181- -14 

£191 L5!CWr-POS-IW-0 
£201 LT.ft-TftPEl 
£211 COHVP 
£223 -(44+rt)/lL15 
(231 ft 

£243 L10»ID£.-P£11 
£253 IDP-PE21 
£263 HUH*-ftlZi 
£273 £.£(/-/« 41 
£283 U5>PIC-PIC,£13fl£ i21 
£291 ft*TftPEi 
£303 -£0-fP)/£.25 
£313 COWP 

£323 -(W/ff^IW-IW+D/U? 

£333 -L15 


£341 U7SIW-0 
£351 PIC£;21-IPIC£J21 
£361 *(LEvn)/L20 
1371 PIC FftPPEHD 21 
£381 PIC-0 2+'i0 
£391 CWr-CNI-1 
£ 40 1 CHT 
£411 -£.7 

£421- £.20 !POS-POS*l 

£433 PIC FftPPEHD 24 

£443 PIC-0 2M0 

£453 -((ID£.<ID>''(IDP<ID))/£.22 

£461 COt1P>-l*HD 

£471 -L24 

£481 L22tCOHP-ID\IDL 

£491 -((COffP*0)''(COffP>+ID))/£.23 

£501 IDX^-FREftDiLEV*20) .COHP 

£513 IDX*-IDX,ROS 

£521 IDX FREPLftCE(LEV*20),COHP 

£531 L23:CDffP-IDiIDP 

£541 -((CO£fP*0)v(CDWP>+ID))/L7 

£551 L2ftiIDX»-FREftD(LEV*20),COnP 

£561 IDX* IDX, PCS 

1 57 1 IDX FREPLftCE(LEV*20) .COUP 

£581 -L7 

£591 LZZiFUHTIE FHUHS 
£601 'ENDOFBLDPIC' 

7 


D-.11 



vr/?rosi0lv 134] 

7 CRTHB-.TfiPEUT 135] 

DEFILE C3S] 

USELECT NUttBER OF DATA [371 

'NUMBER OF DATA!' ^ 

RL*a 

UNITIALIZE UORK AREA AND VARIABLES 
TAT-TAG-TAB>-lO,RLina 
TAT FAPPEND 13 
COtIP-CNT'-ll 
T>-TAPE 
tlOl LA’.T*-TAPEi 
[111 CONVT 

CNT*CNT^l 
TAB-TAB.Hm 

KEYT*-lKEY*lli 
(161 LStT'-TAPEl 
(171 -*<fl-»n'L20 

1 10 1 CONUT 

I19J •*c^rfr.Lnij+iooo)/Li5 
[201 L10:r6'-*-'0 UTAB 
(211 rrt6<-rAC>(i]r6>mi<iOBo 
^ffy-inii+iooo 
coNP*conp*i 
TAB FAPPEND 11 
CONP.CNT 
CHT^a 

TAB-(Q,RL)HQ 

-»(if£yr*L n 1 itioooo )/2*i26 

CRTAB^ 

(301 i.i5srrtfl*-rflB,(i]*r 
(311 CNKHT*! 

(321 -LS 

(331 L2niconp-conp>i 


[ 1 ] 

121 

(31 

(41 

(51 

(61 

171 

(01 

(91 


(121 

(131 

(141 

(151 


(221 

(231 

(241 

(251 

(261 

(271 

(261 

(291 


7C/?M£2(D17 
7 CRTABZ 

(II TAG FAPPEND 12 • 
(21 IT— /O UTAG 
(31 TT^-TT^NEYTnOOOO 

(41 /cm-inii+ioooo 

(51 TAG<-lB,RLyMO 
(61 TAT*FREAD 13»1 
(71 TAT^TAT.lim 
[0] TAT FREPLACE IZ,1 

7 - • » 

• 7ci?io(ai7 
7 C/?10 ‘ 

(11 . ‘TABl-'FCREATE n 
(21 'TABZ'FCREATE 12 
(31 'TABZ'FCREATE 13 


( 11 . 

(21 

(31 

(41 


7- I 


(11 

(21 

(31 


' .7 

( 11 . - 

(21 

(31 


7O?20(Dl7 

CRZB 

'PICi'FCREATE 21 
'PICZ'FCREATE 22 
'PICZ'FCREATE 23 
‘PICVFCREATE 24 

7C/?30(D]7 
■ CRZB ^ 
'IDXVFCREATE 31 
IDXZ' FCREATE-^ZZ 
'IDXZ'FCREATE 33 

7Cff4D(Dl7 
O?40 - 

'CENT! 'FCREATE 41 
'CENTZ'FCREATE 42 
•CENn'FCREATE 43 


TAB FAPPEND 11 
CRTABZ 
■ C0tlP,CNT 
LZa:'.END OF BLDTAB' 


D~12 



V£/?10tQ]V 

« mo 

111- Tflffi'fmsf 11 

12 J ‘TABZ'FERASE 12 

t3I 'TBBZ'EERfiSE 13 

'ymotoiT 
7 fff20 

m 'Pici'fmsf 21 

(21 'PICZ'EERASE 22 

(31 'PICZ'FERBSE 23 

(41 'PICA'FERBSE 24 

7 

'?fff30(Dl7 
V f/?30 

(11 'IDXl'FERRSE Zl 

(21 'IBXZ'FERBSE 32 

(31 'IC.YS'FmSf 33 

7 

Vf/?40(D]7 

7 mo 

(11 'CENTl'FERPSE 41 

(21 'CENTZ’FERBSE 42 

(31 >CEBTZ<FBRPSE 43 

7 


7j?fSfmaiv ' 

.7 fffsfrf 
(11> DEX'F'WL z 


(21 

7 

0£xr £ 




PRESET (017 


7 RESETU 


(11 

7, 

D£X ALPHA ONL . 


7r/£10(Ol7 



7 

r/£io 


(11 


'TABI'FTIE 

11 

(21 


'TABZ'FTIE 

12 

(31 


•TABZ'FTIE 

13 


V 

7r/£20(Dl7 



7 

TIEZO 


(11 


■pia*fn£ 

2l' 

(21 


'PICZ'FTIE 

22 

(31 


'PICZ'FTIE 

23 

(41 


'PICA'FTIE 

24 


V 

7ri£3D(Q]7 



7 

ri£30 


(11 


'IDXl'FTIE 

31 

(21 


'IDXZ'FTIE 

32 

(31 

V 

■ICX3'Fri£ 

33 



7r/£40(P17 


(11 

7 

rj£40 



'CENTl'FTIE 41 

(21 


'CENTZ'FTIE 42 

(31 


'CENTZ'FTIE 43 


V 



7f'£fJl.flDl7 

7 DEFlLEtRLiBS 

(11 'LOGICAL RECORD LEHGTH1 

(21 (?L*-a 

(31 'fllOCff £IZ£? ' 

(41 BS-a 

(51 acrSt-'FILEDEF TOPEl CLEAR' 

(61 DCB-RL,' BLOCK ',BS,' RECFtI FB STRACK DEH 800)' 

(71 aCTS<-'FILEPEF TAPEl TAPI (LRECL ' ,DCB 
(81 QCTS^'TAPE REU' 

(91 acrs-TflP£ fSf 

(101 TAPEl*- 'TAPEl (370' 

(111 (2*111 QSUO' TAPEl TAPEl DEFINED' 

7 

7ft£SSrtCf(DI7 
7 ttESSAGE TAPEID 

(11 DCrS-'rtSG OP PLEASE MOUNT TAPE '.TAPEID,' AS TAPI STRACK 600SPI 

(21 pcrs-'rtotwr >,tapeid 

(31 'SENT' 


D-13 



ffCWrXtDlv 

V cum 


riEio 

rj£30 

IVX2-IDXJ-0 SMO 
CHTS-CNTQf-a 
IN*-! 

QH- UIFSIZE 11)£21 
IDX*IFREAD 1 1, IN) U 561 
Nfy’*-LiDxni+ioooo 
■»L 7 

(101 L5:IN*-IN*1 

111] 'IN^fC* ',TJN 

1121 ■>UH>GN)/L20 

1131 IDX^-IFREM I1.IW)[;56I 

I HI -*(Nfy^tIDX[lH10000)/U0 

1151 L7:lDyif((HDX),Z)tO 

1161 IDX1U31-IDX 

IDXl FAPPEND 31 
CNTB-CNTB*! 

X2*-5fO 

X2r3]«-lC00*I6-LIDXm+1000 
X2M1*-CNIB 
X2t51*-H»IDX1 
IDX2*-IPX2,I1]Y2 
4 i.s 

1251 L 10:15X2 FBPPEND 32 
1261 CNTG-CNTG*l 
CHTG 
X3«-5/0 

X3t31*-X£V'xlOOOO 
X3I41*-CNrc 
X3I51«-ltfI5X2 
I5X3«-I5X3.t 1 1X3 
X£V«-LI5XI1]*10000 


111 

121 

131 

HI 

[51 

161 

171 

10 ] 

191 


1171 

1181 

1191 

[ 20 ] 

[211 

[221 

[231 

(241 


1271 

(281 

(291 

(301 

(311 

(321 

(331 


(341 I5X2*-0 5M0 
(351 -*L7 

I36M20:liiX3 FAPPEHD 33 

(371 lt»I5X3 

(381 'fW5 OF BLDIDX' 

V 



APPENDIX E 

LUMIS INTERACTIVE GRAPHICS FORTRAN PROGRAM LISTINGS 


E-1 



oiHeNaioN ioatcjs^j 

JO FORHATCZln 

20 Fl)RMATfl0flX,I«f:2,I3,I2,lX,12ll2,233I6,iaxJ 
30 FORHATf 110*12112,23316) 

itO rURHATllH ,IRFAD ERROR AFTER REC NO ■ SI'S) 

50 format! iHo, 'ERROR COUNT a I 10// ‘OUTPUT COUNT * ',110) 

icin=o 

IERR»0 

100 READt2,20,ERR*'»00,ENRtt500) 

I 101,102,103,10'*, CIAGGtJ), J=l,l2T,(lDAT{Kl,Krl,233T 
IDD=((IDl *10 + II12 )*10000) + (ID3 A10*'ID'I) 

WRITE(3,30) TOO, C lAGG ( J ), J»l, 12), (IDAT(K),K« 1,233) 
1CNT*ICNT+1 
GO TO loo 
000 IERRslERR+1 

WRITE(6,'tO) ICNT 
en TO loo 

500 HRlTE{6,5oi IERR,ICNT 
STOP 
END 


ORIGINAL PAGE JS 
OP POOR QUALITY 


E-2 



c 


DIHEHSIPN IXY(fl) 

INs2 

10=5 

IFLGxo 


ICUTUaO 

IERR=0 

lERRlaO 

IERR2aO 

rnNKL=o 

IBNKRaO 

30 FORHATClHl, 1"5HI!£C0RI> COUNTS / 

” iHo.lSHReCQRDS READ ,110/ 

- IHO, 15HRECOROS WRITTEN,, 1 10/ 

- IHo.lb'HLFFr BLANK ,110/ 

- IHo.lbHRIGHT BLANK ,110/ 

“ IHO, IbHCODINfi FLAG2 ,110/ 

lHo,i5HC0DINr. FLAGl ,T10/ 

- 1HO,15HOTHER ERROR ,110) 

flO FORHAKlH ‘,7110) 

50 FORHATdH WRITE ERROR RFC NO = »,I5) 

JOO DO 850 KK=1, 21000 

READdN, l0,ENti=900i NCLF,NREC,NTL,NTL3,NTR,NTR8,-‘ 

” NBL,NnL3,N0R,NBRS, (IXY Cl) , I»1 , 0) 

NTL=NtL*10+NTL8 • 

NTR=HTR*Io+NTRS 

NBL=NRL*10+NDLS 

NflR=NBR*to+NnRS 

IFCNCLP ;GT. 0 .OR, NTR JEO. 0 ,IJR, NTL ,E0. 0) GO TO 600 

IFCNTL ,E0, NIR) GO TO 200 

LEVcfl 


GO TO 500 
200 NGl=NRL/1000 
NGRsNRR/loOO 

IFCNGL .EO. NGR) GO TO 300 

LEV=3 

GO TO 500 

300 IFCNBL .EQ, NBR) GO TO 'tOO 
LEVa2 
GO TO 500 
000 LEVsl 

GO TO 550 

500 10 =NTR*looOO + NiaR 
IFLG=1 
GO TO 820 

55o ID sNTLAtOOOO+NHL 
GO TO 820 
600 LEVsq 

IFCNCLF ,E0. 2) IERR2=IERR2+1 

IFCNCLF .EG. 1> IERR1=IERR1*1 

IFCNTR .EO. 0 ;AND. NTL ,NE, 0) QO TO 700 

IFCNTL ^EQ..O .AND, NtR ,NE. 0) GO 10 800 

1ERR=IERR+1 

60 TO 550 

700 IBNKRsIBNKR +1 

10 =NTL*1OOOO*N0L 
GO TO 820 

800 IBNKL = IBNKLU 

ID =HTR*1oOOO+N6R 

820 HRITECIII,2o,ERRoB 30) C IXY (I) , 1=1 ,4) ,ID,NREC,LEV 
HRITEC 6,40) CIXya),I = l,4),ID, NRECrLEV 
ICNTOsICNTOtl - 
IFCIFLG ,NE. 1) GO TO 850 
IFLG=0 

10 sNTLAlOOOOtNJiL 
GO TO 820 

830 HRITEC6,50) KK 
850 COMtIIIIIE 
900 END file 3 

HRITEC6, 3o) KK,ICNin,IBNKL,IBNKR.IERR2,lERRl,IERR 
STOP 
. END 


ORIGQfAL PAGE IS 

OE POOR quality: 


E-3 



o o o non nnnn 


IMPLICIT INIEfiFR (A-Zi 

NIHESr9<?999<)999 

IN *8 

0UTc9 

RECINsO 

RECOIlTeO 


READ DIME FILE RECORD AND SELECT REQUIRED INFORMATION 
100 REAOCIN, lo,END«aooi 

lRN#TLfTLS,TR,TR3,FN,TN.BL,BLS,BR,BRSrFY,FX,TY,TX 

REClNaREClN+1 

hake block numbers unique by combining with tract numbers, 

6LKL»0 

grpl«o 

TRTL»0 

BLKRco 

6RPRC0 

TRTRso 

IFTTL ,EQ; o) RU to 200 

BLKL»(TL*10tTL8I*10000+(BL*10+BLSi 

GRP|,sBLKL/1000 

TRILSGRPL/IO 

200 1F(TR ;eO, oi GO TO 300 

BLKR«(TR*lOtTnS)*lOOOO + (0r<*lO+BRSJ 
GRPR=0LKR/l'oOO 
TRTRsGRPR/10 
300 LEV»1 

SELECT ONLY BOUNDARY SEGMENTS, 

350 IFIBLKL iEO^ BLKR) GO TO 100 
IPTGRPL ;ne; ORPRI LEV*2 
IFtTRTL ;NE. TRTR) LEV»3 

IFtGRPL .EO, 0) GO TO 400 

WRITE (OUT, 20^ GRPLrGRPR,RNfFN,TN,FX,FY,TX,TY,LEV 

RECOliTBRECnUT+1 

GO TO 'loo 

000 WRlTE(OllT,20) GRPR, RRPL, RN. TN,FN, 1 X, TY,FX,FY,LEV 
RECOUTeRECnllTtl 
500 GO TO loo 
000 WRlTECnUTflOl NINES 
END FILE OUT 

WRlTE(6,flO) RECIN, RECOUT 

10 FORHATl80X,IOrlX,2CI4,I2i,19X,2IO,21X,I3,I2,l«X,I3»I2,55X,Om 
20 FuRHAT(2I9,3In,4I9,ISi 
30 FDRHATfI9^ 

00 PORHATC'O PRESORT PROCESSING COMPLETED' /// lOX, I6, '• RECORDS IN 
X' // lOX, 16, ' RECORDS PASSED TO SORT') 

CALL exit 

STOP 

END 



rs r; n o o n no 


IMPLICIT INTECER (B-Yi 
INTEOERnS ND(fl) 

DIHENSIIIN N0f2),N3C3) 

EQUIVALENCE (NO t 1 i rNRIl ) ) 
double precision ZHIILT 
DIMENSION TlTLEt5), OPTIONCS) 

dimension TLIST<2000) 

COMMON ELISK 2000, 5 ) , 7HULT 


data n. INFILE, OtlTl, 0UT2, EOF 
X / 1, 9, 10, 11 , <?9')999999,a000 , 0.0 , 

logical Pins / .FALSE. / 

LOGICAL ADJ / .FALSE, / 
logical Lisr / .false, ./ , BNDS / .FALSE. / 

DATA NUM / 0 / , BGRP / *BGP3' . / 

data BLKS / 'BLKS» / , TDRPT /O/, DROPT /O/ 

DATA blank /I '/ , lA /'A'/ 

1.' * 

^ OPTION PROCESSING 

C 

CNTsO 

READ(5,5001,ERR«=9999i AMULT, UNITS, KALC, OPTION, TITLE 
SOOl FDRHAT(F10.0,2A9,3I1,3A4V 

: 

ZMULT = AMULT * ,00000001 


OAC00030 
DACO0O4O 
DAC00090 
DAC00060 
0ACU0070 
OACOOOSO 
DACOOO90 
DACOOlOO 
OACOOllO 

, MAX , AREA, ATOTAL, A3UB 0AC00120 
0,0,' 0,0 / 

DACOOlOO 


ED. 

1) 

LIST 

* .true; 

EO, 

n 

RNDs 

= .TRUE, 

EO. 

n 

ADJ 

3 .TRUE. 

5002 

t 

ENDaSOO) key, 


DAC00150 

DACOOlOO 

OACOOITO 

OACOOIRO 

0AC0Q190 

0ACU0210 

DAC00220 

0AC00230 


DAC00270 

DAC00300 

DAC00310 

DACOOS20 

DAC00330 


5002 P0RHAT(7I9) 

HRITE(6,5010) TITLF, KALC, UNITS, OPTION, KEY DAC00410 

SOIA^PORHAtC •!', lOX, 'll, S. BUREAU OF CENSUS - DIME AREA-CENIROIO 3DAC00020 
. . . . DAC00430 

DACO044O 
OAC00050 
DAC00400 
OAC00070 
OACOOOAO 
0ACQOO90 
DAC00500 


XY3TEM (OACSI* // 25X, 3A0 // IIX, ‘CALCULATIONS ARE FOR 

X » IN ',A0,5X,3I1, ' IS OPTION'/// 5X, 'FIRST AREA IS', 111 // 1 

100 ReR+1 

IF( , R ,LT. MAX ) BO TO 120 
WRITE(6,5003) KALC, KEV, MAX 

5003 format! // ' *** ', AO, Til, ' KAS',15, ' OR MORE SEGMENTS' 1 
DROPT = DRnPT + 1 

NIX « -1 

105 .READ! INFILE, 5002, END=500)KEYX, ILISKO, (EL18T( 1 , J) , J» I ,5) 
NIX c NIX + 1 

IF( KEYX ^EQi key ) GO TO lOS 
WRITE! 6, 5000 I NIX 

5004 format! 24X, 15, ' SEGMENTS DROPPED. NO CALCULATIONS' // 1 
NIX o 0 

R a 2 


120 READ! INFILE, 5002, ENDr500)KEYX, TLISTIR), !ELI81 !R,Ji,Jal,B) 
IP! KEYX :eO. key ) BO TO 100 


0ACOO520 

DAC00536 

OAC00540 

DAC00550 

0ACU0S60 

DAC00570 

DAC005S0 

DAC00590 


DAC00620 
DAC00630 
0AC00640 
OAC00650 
OACOO660 
DACDOSTO 
DACU0680 
DACU0690 
OAC00700 
DAC00710 
DAC0Q720 
DAC00730 
DACO0740 
DAC00750 
DACU0T60 
DAC00770 
OAC00760 
OAC00790 
DACooeoo 

'' DACOOSIO 

5005 FORMAT! 'o*** ',A4, 111 , ' HAS', 13, ' BOUNDED REGIONS - CHECK' ) DAC00S20 

GO TO 150 DAC00330 

^ „ DACOOfl/IO 

140 WRITE! 6,5006) KALC, KEY, COMPS, CLOSES DACOOB50 

5006 FORMAT! '0**A ',A4, 111, • HAS', 13, ' COMPONENTS, ONLY', 13,' ARE 
X CLOSED, REGION NOT PROCESSED' ) 

C 


* PROCESSING * 
S * 

130 NUH * NUM ♦ 1 


NBL8 a R-1 
AREA = 0.0 
CENTX 3 0 
CENTY = 0 
INO 3 0 

CALL CHAIN ! NBLS, COMPS. CLOSES, RV3LS ) 
IF! ClIHPS NE, CLOSER ) GO 10 140 
,E0, 1 ) GO TO 150 


IF! COMPS 
WRITE! 6,5005) KALC, KEY, COMPS 


E-5 


OmcWAL PAGE 
OFj POOR QUALITY 



IMPLICIT INTEPffi (A-Z) 

DIHEN3II1N I5ECC200, t0),VTX(500,2) 

10 F0RHAT(2I9,3ror'II9,IBj 
20 FORHAT(OI91 
50 FORHATdHo.nllO) 

AO FORHAT(2I9) 

AS PORHATdH ,2191 

SO FORHATflHl , 'VERTEX FTLE SUMMARY'// 

1 /|X, 'inU',7X, 'I0R*,7X, 'VTX', tOX, 'UFV'i 

60 FORHATCIHO, 'Nil OP CHAIN = ',I6,10X,'NO OF REC i ',16) 

70 FORHA'TdHo, ' WRITE ERRORM 
NINESsROOOORORO 

INsS 

ni)T=9 

Rnl 

IniHiO 

HRCC=0 

read (IN, lo,ENO=9no) (RECtR,J),J=lrtO) 

10LaREC(R,li 

I0R3REC(R,2) 

200 RsR+1 

read (IN, 10,EHD»900> (RECIR, J) , Ja 1 , 1 0) 

IFCIDL .EO; REC(R,1) ^AND. IDR ,EO. REC(R,2)) GOTO 200 

CNTcR-1 

CKK=0 

LLeO 

K=0 

500 KaK+l 
FLOsO 

IFCK ,Gt; -CNT) go to AOO 
MsK 

IF(REC(M,S) .EG, 0^ fin in 300 
LLsU-tl 

VTX(LL,U = (-nARECCM,7) 

VTX(LL,2)iRFC(H,6) 

KEY1=REC(M,9) 

KEY2bREC(M,8) 

REC(H,31=0 

NcO 

320 H=N+1 

IF(H ,GT. CNT) GO TO 350 
IF(REC(N,3) .En. 0) fin Til 320 
HATsO 

IF(KEYi ;eoI REC(N,7) ,AND, KEY2 .EO. REC(N,6)) GO TO 370 
KAT=1 

1F(KEY1 ,En. REC(N,9l ,AND; KEY2 .EO. REC(N,8)) Cn TO 370 
GO TO 320 
3S0 FLGeI 
370 LL=LL+1 

VTX(UL,l)sKEYl 

VTX(LL',2)5KEY2 

CHKbCHK+1 

IFCCHX .EG, CNT ;0R. CHK ,GT, CNT) go TO 000 
IFCFLG .EG. 1) GO TO 300 
IF(MAT .eg: 1) GO TO 380 
KEYlsREC(N,9) 

KEY2»R£CfN,fli 
GO TO 390 
380 .KEV13REC(N,75 
KEY2*REC(N,(.) 

390 RECCff,31so 
HsN 
NcO 

GO TO 320 

AOO MRlTE(nilr,20,ERR=000) IDl ,IDR,LL,RECd,10) 

DO OlO Icl.LL 

WRITE(nilT,AO,ERR=800) C VTX f I , J ) ,.)= I ,2i 
A 10 CQIITIHUr 

HRITE(niir,AO) NINES 
NIlKsNUH-d 
HREC*HREC+LL 
DO A20 J=l,JO 
RECd,J)sREC(R, J) 

A2A CONTINUE 

IDL=REC{R,li 

I0R=REC{R,2l 

R*l 

GO TO 200 
000 HRITE(6,70) 

900 END FILE OUT 

KRITEC6,60) miF,NRfC 

STOP 

END 
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WRirec to, 5007 t 
00 105 I * IfNBLS 
KOtn c EHST(I,2) 

-N0C21 c ElISTCI,?) 

N3<n = ELIST(I»1) 

N3C21 = ELlST(TrO) 

HS(3) = EIISTCI,5) 

105 HRITE(6, 50971 NO, NS 
5097 P0RHAT(2(5X,A2»I5), 31121 

C 

5007 F0RHAT< 'o SERHENT USTINGt ' // 

X FROM NODE TO NODE REC NUMBER FROM X 
C 

0R0P7 = ORnPT + 1 
c 

GO TO 1000 


FROM Y' /) 


DAC00390 

0AC00900 

DAC00910 

DAC00920 

DAC00930 

DAC00940 

DAC00950 

DAC0D960 

OAC00970 

DACO09IIO 

'DAC00990 

DACOlOlO 

0ACO1O20 

DAC01030 


C 0ACO1050 

150 CALL ,CALC( N8L3, AREA. CENTX, CENTY . MX, MY 1 DACU1060 

C‘ OAC01070 

IFC AREA JlC. 0.0 ) ORORT a OROPT + 1 DAC01080 


C 0AC01090 

IF( CENTX ,NE, 0. ) CALL PfILYPTC N6LS, CENTX, CENTY, IND,MX,M¥). DACOUOO 

IFC. NUT. BNDS 1 fiO TO lOOO OACOUIO 

C - OACOllSO 

SYHAPoIA DACOU30 

KEYl = KEY/10000 DAC0U40 

. KEV2*Hl1DCKEY,10000l OACOUSO 

KEY2cKEY2*tOO DACO1140 


DO IfiO 1 = 1, NBLS DAC01170 

KEV2BKEY2+I DACOUBO 

HRlTECnuT2,50in KEY1,8YHAP,ELISTCI,5),ELIS7{I,«1,ELIS7 (I, O, DACOU90 

' . XKEY2 DAC01200 

Soil FORMATtI5,OX,Al,2ItO,20X,no,13X,17i 0AC01210 

SYMAPaBLANK DAC01220 


180 CONTINUE DAC01230 

C OAC01240 

KEY2SKEY2+1 OACO1250 

• HHlTEcnUTE’.SOtn KEY t , 3YMAP,ELI8T( 1 ,5) .ELIST Cl ,4) ,ELIST f 1 , H , DAC01260 

XKEY2 0AC01270 

C. , DAC01280 


1000 IFC list 1 WRITEC6,50081kaLC, KEY, NBLS, AREA, UNITS, CENTX, CENTY 0AC01290 

5008 FORHATC //5X, A«, 111, 19, I SEGMENTS. AREA ■*, F15.S,1X, AH 

X / 29X , ' CENTROID 13 !»,2I15 ) 

IF CPIOs) CALL REFMT CNBLS.KEYl 
C 

1FCRVSL3 .RT; 0) WRITEC6,5015) RVSLS 
5015 FORHATC 9X, 111, 'RFVErsAUS - CHECK FOR POSS, ERRORS.' ) 

IFC IND ,GE. 01 CO in 1100 
C 

^ CALL ADJUST ( NBLS, CENTX, CENTY, NODE i 
C 

WRITECO, 50091 node , CENTX, CENTY 

5009 FORHATC / 9X, 'CENTROID HAS OUTSIDE BOUNDARY - ADJUSTED ID NODE ' ,DAC01020 

, 111 / 29X , 'NEW CENTROID IS |*,2I15 1 0AC01430 


DAC01390 

OACOtOOO 

DAC01300 

OACO1310 

DAC01340 

0AC0133O 

DAC013S0 

DAC01550 

0AC013S0 


C 

1100 HRItEC nUTt, 5010 1 key, area, CENTX, CENTY 
C 

Solo FORHATC IlO, F20.5, 2110 ) 

C . 

: . A3U8 = ASUB + AREA 

. ATOTALa ATOTAL ♦ AREA 
C . 

1150 IFC ADJ ) CALL ADJNCY C NBLS, KEY , TLIST 1 
DO 1200 Isl,5 . , 

1200 ELISTClflie ELISTCR.ll 
C . 

1250' KEY a KEYX 
R = 2 
C 
c 

1.300, IFC key .it; EOF 1 GO fn 120 
C ' , . 

IFC. TDRPT ,E0. 0 1 TDRP1 s DROP i 

WRITEC6, 50131 NUH, KALC, TDRPT, ATOTAL, UNITS 

5013 FORHATC '1' / IX, lOC ') // ItO, IX, A4, ', I, 16, ' 

X // SX, 'total area IS' , E13.5, IX, A4 // IX, IOC 


DAC01410 

DACU1440 

0AC01450 

0AC01460 

DAC01470 

OAC014BO 

DAC01490 

DAC01500 

DAC01510 

OAC01530 
DAC01540 
DAC01550 
OAC01S6D 
0AC01720 
DACU1730 
DAC01740 
OACOirSd 
0ACO1760 
0AC01770 
nHITTED'DACOlTBO 
') 1 OAC01790 



onnnoonoononorjoi^n n onrsoooo 


GO TO X3S0 

500 KEYX* EOF DACOlftlO 

60 TO 1250 OACO1820 

C ' 0AC01R30 

9999 WRITH(<).5099> OACOlflflO 

C DAC01850 

'5099 FORHATt '1 ERROR IN FIRST RECORD' ) DAC01B60 

WRITE( 6 , 500 l)If AHULT, UNITS, KALC, OPTinN, TITLE 0ACO1870 

1550 STOP 

END 0AC01S90 


SUBROUTINE CHAIN CN6LS,CnHPS,Ctt'13ES,RV3L8) 

OAC02200 

DACU2210 

THIS StlBRllUTINE IS IDENTICAL TO THAT USED IN THE DIME EDIT PACKAGEDAC02220 

DAC0223f 

DAC022AC 

OAC02250 

DAC02260 

IMPLICIT INTEGER (A-7) DAC, 02270 

double precision ZMULT 0ACO2280 

dimension HnUDER(5i,ELI8T(2000,5) OAC02290 

COMMON ELISTfZHULT 0AC02300 

BEGIN 3 1 OAC02510 

END • 3 1 DAC02320 

COMPS * 0 DAC02330 

RVSLS 3 0 DACO2340 

CLOSES 3 0 DAC02350 

HEAD 3 ELI3T(6EGIN,2) DAC02360 

TAIL « ELI3TCEND,3) DAC02370 

IP{ HALS - 1 ) 1250, 1200, 1000 DAC02380 

00 IF( head IeQ^ tail ) GO TO 1200 DAC02390 

START 3 END t I DACU2400 

IF( START ,GT, N8LS ) GO TO 1200 DAC02410 

on 1100 I c START, NRLS DAC02420 

IF (ELI3T(I,31;eO,HEADT GO m 3000 DAC02430 

IF <ELleT(I,2l,E0.TAIL^ GH TO 2000 DAC02440 

00 continue OAC02450 

Dtl 1150 I c START, NRLS DAC02460 

II s I ♦ 1 DAC02470 

IF CI.ED^NBLS) II » 1 OAC024BO 

IF (ELI3Ta,23,EO,HEAD^ GO TO 2990 OAC02490 

IF (ELI3Ta,5i;eO,TAIL) GO TO 1990 OAC02500 

50 continue 0AC02510 

00 COMPS B COMPS + 1 OACO2320 

IFt HEAD ,;eQ. tail i CLOSES '* CLOSES ♦ 1 DAC02530 

50 IF( END .GEi NBL3 ) RETURN . DAC02540 

IN *A 0ACU2S50 

EL1ST(END,0 » -ELISTtEND, 1) 0AC02560 

IF (CLOSES. GE, 2) GO TO 1400 DAC02570 

DAC02960 

THE FOLLOWING SECTION RFARRANGER THE ORDER HP SEGMENTS IN THE CHAIN TDAC02590 
PERMIT CHAINING AS CINE COMPOMENT FOR FIGURE EIGHT OR CHECKER80ARDAC02600 


GO TO 1200 


IMPLICIT INTEGER (A-Z) 

double PRECISION ZMULT 

dimension holder ( 5i , el 1ST (2000, 5) 

COMMON ELISTfZHULT 

BEGIN 3 1 

END • 3 1 

COMPS * 0 

RVSLS 3 0 

CLOSES 3 0 

HEAD 3 EL1ST(BEGIN,2) 

TAIL « ELI3T(END,5) 

IP( MBLS - 1 ) 1250, 1200, 1000 

1000 IF( head IeQ^ tail ) GO TO 1200 
START B end t I 

IF( START ,GT, N8LS ) GO TO 1200 
on 1100 I * START, NRLS 
IF (ELI3T(I,31;eO,HEAD) GO CO 3000 
IF <ELleT(I,2l,E0.TAIL^ GO TO 2000 
1100 CONTINUE 

Dll 1150 I B START, NRLS 

n * I ♦ 1 

IF CI,ED:NBLS) II s 1 
IF (ELI3Ta,23,EO,HEAD^ GO TO 2990 
IF (ELI3Ta,5i;eO,TAIL) GO TO 1990 
1150 continue 

1200 COMPS o COMPS + 1 

IFC HEAD ,IeO. tail i CLOSES '* CL 

1250 IFt END .GEi NBL3 ) RETURN 

Main ** 

EL1ST(END,0 » -ELIST(END,1) 

IF (CLOSES. GE, 2) GO TO 1400 


■CLOSES '* CLOSES ♦ 1 
RETURN 


CONFIGURATIONS, VIZ. OACO2610 

OACU2620 

XXXXXXXX XXXX XXX 0AC02630 

XX XXXX XXXXXXXX DACU2GA0 

XX XXXXX X OAC02650 

XXXXXXXXXXXXXXXXX X XX X X X DAC02660 

X X XXX XXXXXXXXX DAC02670 

X X XXXX XXX X DAC026B0 

X X XXX DAC02690 

XXXXXXXXXX 0AC02700 

0AC02710 

ARE TYPES OF REGIONS WHICH CONTAIN ONLY ONE COMPONENT BUT WHICH TDAC02720 
THE PROGRAM CAN INTERPRET AS HAVING TWO OR THREE CLOSED CnMPC1NEMTOAC02730 

DAC02740 

CLOSES 3 0 DAC02750 

. COMPS s 0 , 0AC02760 

Jl * end + 1 DAC02T.70. 

ENDl 3 end DAC02780 


XXXX > 

XX X 

XXX 
X XX X 
•X X 
XXXX XXX 


X XXXXXXXX 
XX X 

X X 

X XXXXXXXXX 
X 


XXXXXXXX 
X X 

X X 

XXXXXXXXXXXXXXXXX 
X X 

X X 

X X 

XXXXXXXXXX 
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uo 


0AC02790 


DO 1300 Kl X 1,END1 
HEAD s ELlaTCKl,3) 

DO 1300 I X JlfNBLS 

IF tELIST(Kl,3i.E0,ELI8T(I ,2)) GO TO 2000 
1300 CONTINUE 

DO 1350 Kl = l,ENDt 
HEAD * ELIST(K1,2) 

DO 1350 I = Jl.NBLS 
II = I + 1 

IF (I.EO.'NBLSI II B 1 

IF (ELIsT(K 1,3).F0.ELI8TCI ,3)) GO TO 1«X)0 
1350 CONTINUE 
CLOSES = 1 
COMPS c 1 


1000 END = END + l 
BEGIN s END 
HEAD = ELISTCBEGIN.S) 

TAIL = ELlST(END,3i 
GO TO 1000 

1990 TEMP = ELI3TCI,2> 

ELIST(I,2i X ELIST(I,3) 
ELIST{I,3) X temp 
TEMPT X ELISm.S) 

TEHPX X ELrSTCI,ai 
ELIST fl,0) X ELIST CllfOi 
ELIST (1,55 = ELIST (11,5) 
ELIST(II,fl) X tEMPX 
ELI3T(It,5) = TEMPT 
RV3LS = RVSLS + 1 

2000 END X end + 1 

IF( end ,E0. I ) GO TO 2050 
DO 2010 Kxl,5 

2010 HOLDER(K) e ELI3T(T,K^ 

TEMP E I 

2020 TEMP X temp - I 
DO 2025 Kxl,5 

2025 ELIST(TEMP+i,K) x FLI3T(TEMP,K) 
IF( temp ,RT; end ) GO TO 2020 
DO 2030 Kxi,5 

2030 ELIST(END,k) = HOLDER(K) 

2050 TAIL » ELIST(END,3) 

GO TO 1000 

2990 TEMP X ELIST(I,2) 

ELIST(I,2) X ELI3T(I,3) 

ELIST(I,3i X temp 
TEMPT X EUST(I,5) 

TEMPX X ELIST(I,a) 

ELIST (1,01 X ELIST (II,fli 
ELIST (1,5) B ELIST (11,5) 
ELI8T(Il,fl) X TEHPX 
ELIST(Il,S) a TEMPT 
RV3LS X RV8L3 + 1 

3000 END X END + 1 
DO 3010 Kxl,5 

3010 HOLOER(K) x ELIST(END,Ki 
TEMP X end 

5020 TEMP X temp - 1 
DO 3030 Kxt,5 

3030 ELIST(TEHP+1,K) X ELtST(TEHP,K) 

IF( TEMP .GT, BEGIN ) GO TO 3020 
IF( I ,E0. END ) I X BEGIN 
DO 3100 Kxl,5 

ELIST(BEGIN,K) X ELIST(I,K) 

3100 ELrST(I,K^ X HOLDER (K). 

HEAD X ELIST (BEGIN, 2i 

GO TO 1000 

END 


OACo2aio 

OACU2e20 

DACO2S30 

DACU2B40 

DAC02S60 

OAC02S70 

DAC028S0 

OAC02S90 

0AC029O0 

OAC02910 

DAC02920 

DAC02930 

OAC02940 

OAC02950 

DAC02960 

DAC02970 

DACU29B0 

DAC02990 

0ACO3OO0 

0AC03010 

DACU3020 

DAC03030 

DACU3040 

0AC030S0 

OACOSOfrO 

0AC03070 

DAC030B0 

DAC03090 

DAC03100 

DAC03110 

DAC03120 

DAC03130 

DAC03190 

DAC03150 

OAC03160 

DAC03170 

DAC031fl0 

0AC03190 

DAC03200 

OAC03210 

DAC032E0 

DAC03230 

OAC03200 

OAC03250 

DAC032&4 

0ACO3270 

0AC032S0 

DAC03296 

DAC03300 

DACU3310 

DACO3320 

DAC03330 

0AC05340 

OAC 03350 

OAC03360 

DAC05370 

DACO33H0 

DAC03390 

DAC03400 

DAC03010 

OAC03020 

DAC03430 

0ACU3440 

0AC03450 

DAC03460 
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31I0BOUTINE ADJIIST( N61.S, CX, C¥* NODE ) 


c 



DACU3000 

c 


ROUTINE TO ADJUST DAO CENTROIDS 

OAC03SOO 

c 


TO NEAREST NODE 

OAC03510 

c 



DAC03520 



IMPLICIT INTEGER (B-Y) 

DAC0353t 



DOUBLE PRECISION ZMULT 

OAC035A0 



COMMON EltSTC 2000, 5 ), 7MULT 

OACOSSIO 

c 



DAC035A0 



NO 3 0 

0AC035T0 



DO 101 I * 1,NBLS 

OAC035SO 



DX s CX-ELIST(I,0) • 

DAC03590 



DY X CY-ELI8Ta,5) 

0AC03600 



AXY = DX * DX + DY * DY 

0AC03&10 



IF( I .eg; 1 ) GO TO 100 

DAC03620 



IF( A .LT; AXY 1 GO 1,11 101 

OAC03630 


100 

A n AXY 

DAC03640 



ND X I 

0AC036S0 


tot 

CONTINUE 

OACU3660 



IF( HO ,LE. 0 ) GO in 200 

DAC03670 



CX « ELISTfND.O) 

DAC036R0 



CY X ELISTCND.S) 

DAC03690 



NODE B ELI3T(ND,2) 

OAC03700 



RETURN 

DAC03710 

c 



DAC03720 


200 

CX X 0 

DAC03730 



CY a 0 

DAC037AO 



NODE xO 

DAC037SO 



RETURN 

0AC037&0 



END 





subroutine CALCI NSEG, area, CX, CY, MINX, «INY > 


C 




DAC03790 



IMPLICIT INTEGER ( B-Y ) 


DAC03B00 



DIMENSION ELISTt20(l0,5) 


DACU3310 



COMMON El 1ST, 7HULT 


DAC03820 



DOUBLE PRECISION 7MIILT, AK\SIX, 

A, DXfDY, XI, Yl, X2,Y2 

DACU3S30 



OIHENSION ARllflO) 





BEGIN X t 


DAC03650 



NAR X 0 


0AC03860 



A X 0 


DAC03S70 



DX X 0 


DAC03SB0 



OY 3 0 


OAC03S90 

c 




0ACO3900 

c 




OAC03910 

c 


USE first COORDINATES TO REDUCE ALL OTHERS 

DAC03920 

c 




DAC03930 

c 




DAC039A0 



MINX 3 ( ELI8Tfl,«) / 10000 ) 

* 10000 




HINY X C ELISTC1,51 / 10000 ) 

• 10000 


c 


CHECK 

FOR MULTIPLfi BOUNDARIES 

DAC03970 


- 5 

NAR X nar + 1 


DAC039BO 



DO 20 1 X BEGIN, NSEfi 


DAC03990 



IF( ELI8TYI,n. ) 10,20,20 


DAC04000 


10 

END X I 


DACOAOlO 



GO TO 30 


OAC04020 


20 

continue 


DAC04030 



END X NSEG 


0AC04040 

c 




DAC04OS0 

c 




DACO'1060 

c 


REDUCING COlTRDlNATFS AND USE 

OF DOUBLE PRECISION 

DAC04070 

c 


MINIMIZES TRUNCATIOH AND ROUNDING ERRORS, 

DAC040B0 

c 




DAC04090 

c 




DAC04100 


30 

XI 3 ELl3TfEND,4) . MINX 


0AC04110 



Y1 X ELISTtEND,5> - HINY 


DACQAISO 



DO 100 K X begin, END 


0ACU4130 



X2 X ELI3T( K,4> MINX 


OAC04140 



Y2 = ELISTl K,5) -HINY 


DAC041B0 
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A tt A + (X2-X1) * (Vl + Y2i 

XI = X2 
Y1 3 y2 


100 CONTINUE 


AR3CHAR) 3 -A 
A s OiOOOOOOO 


BEGIN s end f 1 
IFC END ;LT. NSEG I Rfl TO 5 
BEGIN B 1 
AB 3 ARS(l) 

IABb 1 
A s AB 

IF (NAG.EO.l) Gn in 100 
IFfNAI? ,GT. lO) GO TO 500 
on 150 t = 2, NAG 
A s A t ARSCI) 

IF( ARSm ,LE, AB ) 60 Tn ISO 


ACCUHIILATE AREAS IN 'AR8* 


COMPUTE CENTROID OF LARGEST AREA ONLY 


150 CONTINUE 

180 AREA 3 A A ZHULT 
1F( A ;eoJ 0^0 I 

ifcuar-.eq; I 1 


AS 

lAB 


» ARS(I) 
a 1 


GO TO 500 
GO TO 200 

NSEG 


on I0S I 
IFf ELI3T(I,lJ .GE; 
K s K + 1 


0 ) GO in 105 


183 

184 


-185 


200 


XI = 
Y1 •= 
AR8IX 


IF( K - 
begin = I 
Gn in 105 
END = I 
A 3 aB 
Gil TO 200 

continue 

END s NsFG 

A 3 A8 

ELISTCEND,4) 
ELISTfENDfS) 
a A * 3.0 


lAB il85,103,184 
+ 1 


MINX 

MINY 


C 

c 

c 


c 

c 

c 

c 


NOTE THAT XI AND Y1 ARE ALREADY SET 

DO 300 K 3 BEGIN, END 
X2 3 eLISU K,4) - minx 

Y2 - ELISU K,5) - HINT 

DX 3 DX + ( Y2 - VI I A tXlAXl + XIAX2 + X2AX2 T / AR3IX 

DY 3 DY t f X2 - XI i A (YIaYI + YIAY2 + Y2AY2 ) /- ARSIX 

XI 3 X2 

T1 a Y2 


■300 CONTINUE 

CX = DX + MINX 
CY s -dY .k MINY 


C 

C 

C 

C 

C 


RETURN 
500 CX' * 
CY = 
RETURN 
END 


DAC04160 

OACO4170 

DACO01BO 

DAC04190 

OAC04200 

DAC04210 

0AC04220 

DACU4230 

DAC042/I0 

0ACU4250 

DACU026O 

OACU4270 

DAC04280 

DACU4290 

DAC04300 

DAC04310 

DAC04320 

OACO/1330 


DAC04550 

DAC04360 

DAC04370 

OAeoOSBO 

DAC04590 

OAC04400 

'0AC04410 

DAC 04420 

DAC04430 

0AC04440 

DAC04450 

0AC04460 

DAC04470 

DAC044B0 

DAC04490 

DAC04500 

OACU4SiO 

0AC04520- 

DAC04530 

DACU4S40 

DAC04550 

DACU4360 

0ACU4570 

OAC04580 

0ACU459d 

DACU4&00 

0AC04610 

OAC04620 

0ACU4631) 

DAC04640 

DAC04650 

0ACU4660 

DACU4670 

DACU46B0 

DAC 04690 

DAC04700 

0AC04710 

OACO4720 

DAC04T30 

0ACO4740 

0ACO4T50 

DAC04760 

0AC0477C 

DAC047B0 

OAC04790 

DACO48O0 

DACU'iaiO - 

OACQ4820 

DACO403O 

OAC04840 

DAC 04850 
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3U8R0KTINE IMSECT ( IXY, INB ) 

SUBROUTINE TO CHECK TWO LINE SEGMENTS FOR INTERSECTION 

THE ENDPOINTS OP THE LINES ARE TRANSMITTED (INTEGER BINARYl 
IN the array 'IXV (FIRST B ELEMENTSi ( X-Y X-V X-Y X-Y ) 

THE Variable 'inp' is RETURNEDt o if no intersection 

-1 IF lines are coincident 
♦1 IF they INTERSECT 
THE COORDINATES OF INTERSECTION 
ARE RETURNED IN IXYC9) AND IXY(IO) 


OIHEffSION IXY (10)fXY{Si,3(2),P{E) 

IHD = 0 
X * 0 

Y s 0 

RETURN. IF Nil INTERSECTION .POSSIBLE 

CROSS PRODUCT CALCULATION 

ACX- a IXYCl) - IXY(5j 

ACY 5 IXYC2) - IXY(Ai 

ADX = IXYdJ - IX¥(7) 

ADV s IXY{2^ - IXY(R) 

C 

BCX » IXY(3) - IXY(S) 

BCY = IXY('d - IXY(Si 

BOX s IXY(3^ - IXY(7) 

BOY » IXY(4) - IXY(S) 

At = (ACX * ADY - ACY * ADX) 

A2 = CaCX * SDY - aCY * BOX) 

IF ( A1 * A2 ;gI, 0,0 iRETURN 

R a (ACX * BCY - ACY * BCX) » (ADX a BOY - ADV * BOX) 
■ IF ( R- ;gt. O.OlREiURN 
C CHECK COLINEARITV 

IF{A1.EQ;o :AND. A2.E0, o) go TO 2220 
C CALCULATE INTERSECTION 
R s 0.0 

IF (At ,NE. 0 ) R= I, /Cl. ♦ A88CA2/A1)) 

X a TXY(l) CIXY(3) - IXY(I)) * R 

Y a IXY(2) t (IXYCO) - IXY(2)) » R 
C ROUND TO NEAREST INTEGER 

1X1(91 = X + 3IGN(.5,X) 

IXY(lO) = Y + SIGN(.5,YJ 

IND at 

RETURN 

c COI.INEAR check fob Overlap (coincidence) 

2220 IP (ACX *srx ,LT; o) IND 3 -t 
IF (ADX *8DX ,LT. 0) INDn -1 
RETURN 
END 


DAC05610 
DAC0B620 
DAC05630 
DAC0B6A0 
DAC0B6'50 
OAC 05660 
DAC05670 
DAC056S0 
DAC05690 
0AC03700 
0AC05710 
0AC05720 
DAC05730 
DAC05740 
DAC0575O 
DAC05760 
0AC05770 
OAC057SO 
0AC05790 
DAC05800 
0AC056I0 
0AC05820 
DAC03830 
DAC03840 
OACO5850 
OAC05860 
OAC05870 
DAC058S0 
DAC05890 
DAC05900 
DAC05910 
DAC05920 
0AC03930 
DAC059R0 
DACO5950 
0ACO5960 
DACO5970 
OAC059B0 
OAC05990 
DAC06000 
OACObOlO 
DAC06020 
0AC06O30 
OAC06040 
OAC06030 
DAC06O6O 
DAC06070 
0AC06OS0 
DAC06090 
DAC06IOO 


E-12 ■ 



SUBROUTINE POLYPI CN^ NX, NY, IND, MINX, MlNY ) 

ROUTINE in determine whether a point is WITHIN A 


c 

r 

the 

NllHBER IlF segments 

IS 

•N' 



V# 

c 

•IND' 

' IS RETURNED* +t 

IF 

PT. 

IS 

INSIDE 

c 


0 

IF 

PT. 

IS 

ON THE BOUNDARY 

c 


-1 

IF 

PT. 

IS 

OUTSIDE 


DlHEUsION LXY(101,ELI3T (2000,5) 
COHHOH ELISTr ZHULT 
INTEGER ELI3T 

donbue precision 


MINX 

MIMY 


IX s NX - 
lY = NY - 
IND a 0 
IHOX SO 

xxsiooooo; 

KOUNT = KOtlNT + 
LXYfn a 0 

3 


t 


ZMULT 

1 

1 


LXY(21 
LXY(3) 
t.XYC4) 
LXY(9) 
LXY(lO) 

IT 3 t 
GO TO 2u00 


0AC04flfl0 
POLYGON 0AC04fl90 
OACU490O 
5) DAC04910 

0 AC 04 920 
0AC04950 
DAC04940 
DAC049SO 
0AC04960 
0AC04970 
DAC049B0 
0ACU4990 
OACO500O 
OACOSOlO 
OAC05020 
OAC05030 
OAC05040 
DAC050SO 
OAC05060 
0AC05070 
OAC050RO 
0ACOSO9O 
DAC05100 
0AC05110 
OAC05I20 
0AC05110 
DAC05140 
DAC05I50 
0ACO51O0 
DAC05170 

„ . „ DACOSXflO 

DRAW A LINE from THE POINT TO THE Y-AXIS AND COUNT THE NUMBDAC05190 
OF INTERSECriONS WITH BOUNDARY SEGMENTS, ODD IS INSIDE, EVENDAC05200 


IV 

IX 

lY 

0 

0 


OUTSIDE 

IF an intersection occurs at a node 

CHANGE (HE Y COORDINATE AT THE AXIS AND START OVER 


1000 


t 1 


LXY (2) + IY/10 + I 
RETURN 


IT = IT 
LXY C2) 

IF (IT.GT.5) 

2000 INDX a q 

DO 3000 I s 1 ,N 

II = 1 + t 
IF (I.EO.N) II » 1 
UXV (5) = ELISUI ,4) 


MINX 


■C'H'rCK 

c 


LXY (6) = ELISTd ,5) - MINY 
LXY (71 X ELIST(I1,'4) - MINX 
IXY (8) c ELI3T<T1,5) - MINY 
iPOR P7 AT A NODE 


■2.1 VO 


?C 

^CHECK 

ic 

24 00 


DO 2110 L«5,7,2 

IF ■(U'XY'(lt;eo.ix.and;ixy(lfi),'Eq,iy) return 

^CONTINUE 

CAUL IN3ECT( LXY, TNT ) 

IF (INTI roOO', 3000, 2400 

For PT. -on -DnllND'ARY 

-IF (LXY(91.E0.lX,*AND;LXY(10i,'EQ,’IY) RETURN 


OAC05210 

OAC05220 

0AC05230 

0AC05240 

OACO5250 

OAC05260 

OAC05270 

OACOS2S0 

0AC05290 

DAC05300 

0ACO5310 

OACO5320 

0ACO5330 

DAC05340 

OAC05350 

DACU5360 

OAC05370 

OACU53SO 

OAC05390 

OAC05400 

DAC05410 

OAC05420 

0AC05430 

DAC03440 

■DAC05450 

DAC05460 


■C 

•check 'FOR INTERSECTION wlTK A CORNER 
•c 

on 2500 .)=(>, 8,2 

■IF(:lxYC 9) ,NE. LXY(J-l) ■) GO TO 2500 
■IF <LXY(1 Oi);EO;LXYC'JV) ■go to 1000 
250 0 CONT'IIUIE 

INDX 3 INOX + 1 
3000 COMTINUC 
•IND s 1 

IF(0rilDX/2) * 2 :eO. INDX ) IND a -I 

RETURN 

END 


OKIGINaL FAGS’ 1.- 

POOR QUALirr 


DAC09470 

.0AC03480 

DAC05490 

0AC0S500 

iOACUBSi'O 

•0AC05520 

0AC05530 

’DAC0554<) 

OAC05550 

0AC059A0 

DAC05570 

O'ACOSSftO 
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miSROllTINE REFKT(NBI.8,KEY) - 
IMPLICIT INTECen (A»Ii 

dimension ELISTtaoOOfSi 

COMMON ELI8T 
KEVIaKEY/lOOOO 
KEY2»Mrm(KEYf lOOOOi 
HRITEC13,100i KEY1,KFY2 
100 rORH*T(lX,2lS) 

XHIN«ELI8T(i;'t) 

XMAX«ELl8T(l,'n 

YMIN»ELI81(If5i 

YHAX»ELI3T(1,5> 

DO 10 Jz2,NBLS 

IF(XHlN,GT.ELl8T(J,^()i XHlN«ELI8Tf 
I>(XHAX.LT.CLIST(Jffl)^ XHAX»ELIST ( 
IF<YHlN,GT.ELI8T(4f5i J YMIN»ELI8T ( J,5 j 
IF<YHAX.Lt:ELI8T(J,5)J VMAX«ELIST(J,5) 
*0 CONTINUE 

HRITEaS,200) XMIN,YKlN,XMAXr¥HAXrNBL8 
200 P0RMAT(AI9,I5) 

M2«0 
HKsNBLS 
20 CONTINUE 


Ml«H2+l 

H2«H2+fl 

IFfMK.LT.fll H2»NBLB 

.• WRITEC13,300i fELI3T<H*fl),ELI8T(H,5),HieHl,H2^ 
500 F0RHAT(«C2I9)J 
MKaHK.O 

IF(HK.GE,0) go to 20 
RETURN 
END 


0ACO6130 
0AC061O0 
DAC06150 
DACOblOO 
0AC061T0 
OAC06180 
DAC06190 
OAC06200 
OACO6210 
DAC06220 
3AC06230 
}AC062O0 
2AC06250 
}AC06260 
JAC06270 
}AC062eO 
3AC06290 
DAC06300 
JAC06310 
JAC06320 
MCO6330 
PAC063J*0 
)AC08350 
3AC06360 
)AC06370 
)AC06SB0 
>AC 06396 
)AC06400 
>ACD6410 
)AC06A20 


SUBRflUTINF AOJNCY (N8L8, KEY.LI8T ) 

V 

ADJACENCY LIST 

'DIMENSION L18T(2000) 

•DATA NflUTI / 12 / 

' NEND s NBIS • 1 

'do 1200 1*1, NFND 

iF( LisTdi .ut; 0 ) sn in 1200 

NEXTb I + 1 
« LlSltl) 

.UNDUPLICATE ,LI3T 

DO 1100 J s NEXT, NBL8 
IF( LISTCJ) ,EQ; N i LI8T(J) « -1 
IlOO- continue 
l'200" CONTINUE 

c"' PRINT AND COPY LIST 

■NRITE(6, 1300 ) KEY 

1500 FORMATC <0 LIST OF ADJACENT AREAS FORI, 11,1/) 
O'O 1500 I * 1, N8L3 
IF( LISTd^ ,LEJ 0 ) Gll TCI 1500 

WRITE(6,lfl00) LISTd) 

1900 FORMATt 50X, 111 > 

WRITETNOUTS; 1450 ) KEY, LISTd) 

1050 PORHAK 2115 ) 

C 

1500 CONTINUE 
RETURN 
END 


0AC01910 
0AC01920 
0AC01930 
DAC01940 
0AC01950 
OAC01960 
DAC01970 
OAC019RO 
OAC01990 
0ACO2OO0 
DAC02010 
DAC02O20 
DAC02030 
0 AC 020 40 
DAC02050 
^DACO2O60 
DAC02070 
DAC020S0 
OAC02090 
0AC021O0 
0AC02110 
DAC02120 
DAC02130 
DAC02140 
OAC02150 
.'DAC02160 
OACO2170 
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APPENDIX F 

SAMPLE OF AN APL FILE DUMP 


F-'l 



>?) 

I 

NJ 



CJ V£) lO . CD ^ ,*0 CD ro <\J CD »-« CP CD 

-e— I m>mA 


13 7 

14 

c 

V 

15 
6 


Ll 

0 

2 

0 

0 

b 

1 

3 

0 

0 

1 

1 

0 

0 


11 61301000 

4 6130230C 
8 613G3000 
3 61304000 
3 61305000 


0 613C2010 

0 61302020 

2 61302030 

1 61302040 

0 613G2050 

0 61302050 

0 61302070 

0 61302060 

1 61302090 

0 61302100 

0 61302110 

0 61302140 

0 61302150 

0 61302160 



r 



21 

62 

T 

61302 

• 61302 


‘706876 

1513748 


7G6343 

1513750 


7G8384 

' 1514115 


706742 

1514055 


‘706774 

1514432 


706406 

1514480 


796448 

1514323 


706833 

1514775 


“706443 

1 i 4 G «::! 3 


706066 

1514692 


706099 

1515234 


“70&443 

1514325 


706505 

1515133 


‘706403 

1514430 

VtI 

706364 

1514115 

r 

Co 

705603 

1514216 


705653 

< <r < ^ c- r- 


706408 

^ cr 1 '.,-;pn 
1 v’ JL ~ '■» G ij 


‘706343 

1513 1' 5 3 

Sg 

_706263 

1513406 

^ s 

7Q6343 

< c ^ T'-rp 

i i i '.‘U 

II 

7G5378 

^ i -.' U* ! V 


7G56D3 

1514216 

fs 

.705229 

1514272 


706066 

1514892 

a tsj 

705715 

1514941 


.705233 

1515002 


70S715 

1514341 


70565S 

1514583 


.705262 

1514629 


705715 

1514941 


705732 

1515265 


7GS573 

1513875 


7C5539 1513494 
705578 1513875 
705182 1513898 



FRE^D 22 62 
276' 278 279 



FRFh£> 24 277 
_ 61301 61305 

707385 1513256 

706996 1513303 

7Q6653 1513353 


FRERD 24. 278 
^ 61302 • 613G3 

705149 1513533 

705182 ■ 1513398 
705229 1514272 


705262 1514629 
705293 1515002 
705353 1515345 


FRERD 24 287 
61401 61302 

706847 1515147 

706505 1515188 

706099 1515234 


FRERD 24 289 
61402 61302 

706099 1515234 

705732 1515269 

705358 1515345 




FFEAD 

77 t . 





716A5S 

1530-243 

60100000 

1 

*T 

sJ 


7H091 

1524391 

60200000 

2‘ 



0 

0 

61190000 

7 

1 


0 

0 

60300000 

4 


Q Q 

71 

1507257 

604 0 0 0 0 G 

, t 

C 

\ 

^ td 

713633 

1509448 

6050 0 0 0 0 

6 

CT 

j 

VfJ 

711696 

1511701 

b 0 6 0 0 0 0 0 

0 

1 

6 


? 09267 

1509064 

60700000 

0 

<-T 

i 


” < r> q c c 
1 i u q . u 

150-^727 

6 0 3 0 0 U 0 0 

Q 

! 


r I 0 I' 0 

1502652 

bOrOOOOO 

ic 

t 

g K 

:j 

! . 
0 

0 i ij 0 0 U 0 L' 

i i 

4 


■ 'jc.t . . 

1502626 

'61 10 0 0 0 0 

12 

5 


< '0 cl ~J .0 

1510172 

61200000 

13 

b 


7 0 ■' ' =• !:r 

1512139 

6 L3 0 0 3 0 0 

14 

c 

s > 


/' >J 6'b q 1 

1715693 

61400000 

15 

4 

>T| 

r. '■'. p**i 

'• ‘J f 

i5i^n-=.4 

b i 5 0 0 0 0 0 

16 

7 

J 

Ut 

704634 

1517626 

61610000 

^ n 

X 1 

2 


7007G0 

1518152 

61620000 

16 



699573 

1511396 

61700000 

19 

5 


t>94 - 01 

1512450 

6160 0 0 0 0 

20 

Vj 


b93130 

i 5 1 'll i j 

61900000 

21 

3 


69S075 

1521767 

620 0 0 0 0 0 

22 

5 


700496 

1 5 b 4 D “• b 

62100000 

23 

3 


670252 

1 'wCi D I 

62200000 

24 

3 


69C673 

1521710 

q ^'30 good 

-‘7 

4 


633991 

1519979 

62400000 

26 

6 


63C552 

1512631 

62500000 

27 

0 




FPEAD 32 14 




706653 

1513359 

61301000 


705149 

1513533 

61302000 

sg 

703612 

1513753 

61303000 


702435 

1512139 

61304000 

§ § 

705152 

1512165 

61305000 

a ^ 

FREhD 

31 62 



706653 

1514930 

61302010 

a ^ 

1 ^3 « ■ 

706617 

1514630 

'61 304020 


706577 

1514272 

.61302030 


706532 


61302040 


? 064-55 

1513562 

61302350 


70592? 

1513635 

61302060 


705950 

1513991 

61302070 


706012 

1514347 

61302050 


706055 

1514709 

61302099 

1 

ON 

706261 

1515037 

61302100 


705902 

1515090 

61302110 


705439 

1514426. 

61302140 


705394 

1514064 

61302150 


705363 

1513700 

61302160 


i 

iL 

? 

1 

9 

3 

? 

£ 


bi 

62 

6> 

64 

65 


13 

14 
19 
21 
14 



